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Caro leitor , 


Tendo em vista o elevado número de listagens de programas presente neste livro, bem co- 
mo o tamanho individual de cada uma delas, a Editora Ciência Moderna lhe oferece a possi- 
bilidade de adquiri-las todas em dois disquetes de 5 1 /4" (360 K) ou um disquete de 3 1 /2" (720 
K) - a opção de um disquete de 5 1/4" com 80 trilhas (720 K) também está disponível. Para 
tanto, responda ao cupom(order form) que acompanha este livro. 

Além das listagens-fonte dos programas apresentados, a Editora Ciência Moderna oferece com 
exclusividade os seguintes programas de autoria de Eduardo Barbosa: 

Top Pinto II- O melhor copiador já inventado para o MSX. Não existe um único progra- 
ma que este copiador não reproduza. Entre as suas características, temos: 

* Ambiente dirigido por menus. 

* Utilização da Megaram, permitindo a cópia de um disquete de 720 K com apenas quatro tro- 
cas de disquete, se você estiver usando um só drive. 

* Configuração total das operações executadas, incluindo correção de erros, tipo de cópia, 
drive-fonte, drive de destino, número de tentativas, etc. 

* Alta velocidade: copia um disquete de 360 K em apenas 42 segundos. 

* Segurança: a cópia gerada é exatamente igual ao disquete original. 

Top Format - Trata-se de um fomatador incrementado para o MSX. Entre as suas carac- 
terísticas, temos: 

* Total compatibilidade com os sistemas MSX-DOS e MS-DOS (IBM-PC). 

* Rapidez : formata um disquete de 360 K em 42 segundos, e um disquete de 720 K em 1 mi- 
nuto e 15 segundos. 

* Verificação da integridade do disquete. 

* Definição do interleave : esta opção permite que você acelere a leitura dos arquivos normais 
(.COM, .BAS, .BIN, etc.) em até 60 %, sem perder a compatibilidade com o MSX-DOS e com 
o MS-DOS. 

* Reformatação do disquete sem perda de dados. 

* Possibilidade de mudar o interleave do disquete sem perder dados. 

Top Enso - Trata-se de um programa que literalmente torna virgem os disquetes já for- 
matados. Ideal para ser utilizado em outros copiadores não tão inteligentes quanto o Top Pi- 
nto II. 


Lembre-se: A Editora Ciência Moderna é a única empresa cadastrada pelo autor para a 
venda dos programas acima. Se você adquirir os programas por intermédio da Ciência Moder- 
na, receberá um certificado que lhe garantirá o direito de substituir as suas versões atuais dos 
programas por novas versões lançadas, pagando apenas uma Fração do custo destes 
lançamentos. 
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Produto 

Listagens dos Programas-fonte 
Top Pirate II 
Top Formal 
Top Erase 

Todo Conjunto (Top Pirate II, Top 
Format, Top Erase e 
Listagens dos Programas- 
Fonte) 
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20 BTNS 
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O SUCESSO DA NOVIDADE 


Desde a sua chegada ao Brasil, no Natal de 1 985, o sistema MSX tem provado ser o mais 
racional sistema de 8 bits existente. Vejamos os motivos: Ao fim de quatro anos, os dois re- 
presentantes desta linha no Brasil ainda mostram um fôlego invejável, principalmente se le- 
varmos em conta que os seus concorrentes diretos já não são sequer fabricados. Qual terá 
sido a razão de tamanho sucesso, que provocou a retirada de computadores famosos do mer- 
cado? Acho que todos os usuários do MSX são unânimes em afirmar que a principal vanta- 
gem do sistema está na relação preço/benefício. Dentre as inúmeras vantagens, podemos 
destacar o som em très canais, a imagem em alta resolução com 16 cores, que não requer 
monitores especiais, o microprocessador Z-80 com toda a sua ampla biblioteca de softwares, 
o melhor BASIC entre as máquinas de 8 bits, a utilização do CP/M como sistema de DOS, o 
que permite utilizar a enorme quantidade de programas feitos para este sistema, a arquitetu- 
ra aberta que permite o lançamento de periféricos por fabricantes autônomos, a compatibili- 
dade a nível de arquivos ASCII e de dados com o IBM PC, etc. Considerando-se o preço 
relativamente baixo da máquina em comparação com as vantagens oferecidas, fica fácil per- 
ceber o porquê de tamanho sucesso. 


CRESCE O APOIO AO MSX 

Prevendo o enorme sucesso da linha MSX no Brasil, algumas editoras começaram a lançar 
no mercado livros específicos para esta linha. Inicialmente, os livros se baseavam quase que 
exclusivamente em traduções de trechos do manual da Microsoft para o MSX, que ainda hoje 
não está disponível para o usuário comum. Entretanto, a partir de 1 987 a bibliografia nacional 
começou a adquirir uma personalidade própria com o lançamento de livros que realmente pro- 
curavam desvendar os segredos do MSX. Hoje, o usuário dispõe de um grande número de li- 
vros realmente úteis, que podem auxiliar na programação do MSX em qualquer nível. 

Na parte de software, somente a partir do segundo trimestre de 1988 é que começaram a 
surgir os primeiros produtos nacionais de qualidade. A demora no apoio do software teve e 
tem dois grandes motivos : a lentidão na regulamentação da lei de software que protegeria o 
direito autoral e a baixa remuneração do programador. Mas, apesar de tudo, surgiram soft- 
wares de primeira linha, como o MSX-DOS Tools nacional, o Hello, o Prokit, o Graphos III e o 
Cartoon, entre outros. Pela primeira vez, o usuário brasileiro começou a contar com progra- 
mas em que, para responder SIM a uma pergunta, tenha de apertar a tecla S, e não a tecla Y. 
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PARA ONDE CAMINHA O MSX? 

Tanto sucesso animou os fabricantes no exterior a lançarem novas versões. Primeiramente 
lançaram a versão 2.0, que se diferenciava da 1 .0 (o modelo existente no Brasil) por oferecer 
mais recursos gráficos, dos quais podemos destacar a digitalização de imagens, a maior re- 
solução gráfica e o maior número de cores. O BASIC da versão 2.0 também foi incrementado, 
para manipular estas novas características. O chip de som e o microprocessador continuaram 
os mesmos. Tendo em vista a aprovação do mercado, os mesmos fabricantes lançaram no fi- 
nal de 1 988 a versão 2 + (dois plus), que incrementa ainda mais as características gráficas da 
versão 2.0 e apresenta uma qualidade de digitalização próxima à do vídeo real. Muito bem, is- 
to aconteceu lá fora... E aqui? É fácil prever que estas novidades cedo ou tarde chegarão até 
nós, mas quando? Até agora, o que temos são boatos de que os dois fabricantes nacionais, 
SHARP e GRADIENTE, pretendem lançar o modelo 2.0. O que nos resta ó esperar ansiosa- 
mente que os boatos se confirmem e que a SHARP retorne à produção normal, como fez a 
GRADIENTE. Acho que podemos ter alguma esperança, pois o que acontece lá fora acaba se 
refletindo aqui mais tarde; foi assim com o TRS-80, com o Apple, com o Sinclair, com o PC, e 
não será diferente com o MSX. Enquanto isso, podemos aproveitar o lançamento de novas 
placas feitas por empresas paralelas. Existem duas empresas paulistas oferecendo produtos 
de ótima qualidade, entre eles uma placa que permite a transformação do MSX-1 em MSX-2. 
Como necessito estar sempre atualizado, acabei fazendo a transformação no meu MSX. O 
que pude notar de imediato foi a excelência do acabamento dado à placa de transformação. 
Ela é limpa e sem jumps, refletindo um projeto maduro e confiável. Pelo que pude constatar, 
a compatibilidade com o MSX 2.0 ó total e o que mais me chamou a atenção foi a possibili- 
dade de poder visualizar o modo de alta resolução usando um televisor comum. Esta carac- 
terística representa um avanço, pois não requer um investimento adicional para aproveitar as 
novas vantagens do processador de vídeo. Outro fato que merece destaque é a implemen- 
tação de um circuito de relógio real (com batería e tudo!), que acaba se revelando extrema- 
mente útil no manuseio de arquivos (em disco, obviamente). Fico devendo um livro dedicado 
única e exclusivamente ao MSX 2.0. 


O QUE ESTE LIVRO PRETENDE ? 

Ao realizar este livro, tive em mente aquele usuário que deseja escrever os seus próprios 
programas com a mesma qualidade dos softwares comerciais. Trocando em miúdos, este li- 
vro se destina a todos aqueles que querem dotar os seus programas de janelas, menus, in- 
versões de caracteres, interrupções, etc, e que até hoje não sabem como fazê-lo. Às vezes, 
aparecem alguns programas interessantes nas revistas que apresentam tais recursos, mas aí 
a frustração é grande, pois espera-se pelo menos uma listagem do programa-fonte de tais ro- 
tinas, e o que se apresenta é uma listagem enorme de códigos em hexadecimal. Ora, isto é o 
mesmo que pretender que alguém aprenda a dirigir sem nunca pegar num carro. Este livro 
apresenta tanto o código-fonte (o programa na forma de mnemónicos) como o código-objeto 
(os famosos códigos em hexadecimal resultantes da compilação do código-fonte). Aqui cabe 
uma correção: tenho visto muitos autores confundirem os termos ingleses assembly e assem- 
bler. O primeiro se refere à linguagem propriamente dita, e o segundo ao programa montador 
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que obterá os códigos-fonte, legíveis para o homem, e os transformará em códigos-objeto, 
legíveis para a máquina. O assembler tem vários representantes, como os programas SIM- 
PLE, DEVPAC-80, M80, etc. Cabe também lembrar que o termo linguagem de máquina está 
associado ao código executável (.BIN, .COM). Feita a correção, gostaria que você soubesse 
que a maior parte do livro teve como base o grande número de pedidos de informações que 
os leitores dos meus dois livros anteriores me fizeram através de cartas. A todos eles o meu 
muito obrigado pelas sugestões. Fica, então, renovado o convite de trocarmos informações 
usando a minha caixa postal. Para me escrever, envie a sua carta à: 

Caixa Postal: 37669 

Rio de Janeiro-RJ 
CEP.22642 


AS NECESSIDADES DE CONHECIMENTO E DE EQUIPAMENTO 

Este livro foi escrito visando três espécies distintas de usuários: 


1.0 usuário iniciante que quer contar de imediato com uma ampla biblioteca de rotinas pron- 
tas e testadas para implementação futura. 

2.0 usuário de nível médio que deseja ampliar os seus conhecimentos estudando a construção 
de rotinas mais complexas. 

3.0 usuário profissional que não quer perder tempo desenvolvendo rotinas que já existem (no 
caso, todas as rotinas apresentadas neste livro - existem mais de 100). 


Em todo o livro, suponho que o assemblador adotado seja o DEVPAC-80, que, na minha 
opinião, ó simplesmente o melhor pacote já desenvolvido para o MSX. Todos os programas 
apresentam uma listagem do código-fonte comentada (quase sempre com mais de 6 rotinas 
novas), uma listagem do código-objeto em linhas DATA e um programa de teste. Vale lembrar 
que o programa de teste não tem a pretensão de ser completo, mas sim de apenas demons- 
trar o uso das rotinas implementadas pelo código-fonte. 

Todos os programas foram testados nos microcomputadores EXPERT e HOTBIT, além de 
um EXPERT transformado em 2.0 através da placa DDX. Os programas que acessam a ME- 
GARAM foram testados nos mesmos três tipos de computador usando a MEGARAM fabrica- 
da pela empresa DDX. Cabe lembrar que as rotinas que acessam o vídeo supõem que ele 
esteja em 40 ou em 80 colunas; qualquer outro valor resultará em conseqüências catastrófi- 
cas (a nível visual apenas). Como a maioria das listagens é extensa demais, a EDITORA 
CIÊNCIA MODERNA oferece a possibilidade de você adquirir os disquetes com as listagens 
de todos os programas apresentados, bastando remeter o ORDER FORM que se encontra 
no final deste livro. 

Quanto ao número de dicas e macetes existentes neste livro, fica difícil precisar, mas eu 
contei 1 38 entre as listagens em BASIC e assembly, rotinas completas, endereços de memória, 
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rotinas da BIOS, rotinas do sistema de disco, etc. Em suma, a partir de agora você pode contar 
com uma biblioteca razoável de novas rotinas para a implementação dos seus programas em 
BASIC e em assembly. Fica aqui o meu desejo de que você aproveite todo este trabalho, que 
foi, em essência, um trabalho de pesquisa e, na sua maioria, inédito. 



Capítulo 1 

O VÍDEO 


Francamente, acho que um bom programa tem de apresentar telas bonitas e, acima de 
tudo, eficientes. O estilo de programação que usa a seleção de opções através do teclado 
(presssionar 1 ,2,3... para selecionar as opções nos menus) e não através das teclas do cur- 
sor, do joystick, ou do mouse, já está ultrapassado. Hoje em dia, é quase um regra geral a 
utilização do vídeo reverso para destacar a escolha atual dentro de um menu de opções. 
Como se vê, as telas desempenham um papel cada vez mais importante dentro do projeto de 
um programa. Esta ó a razão pela qual começo este livro apresentando rotinas para o VDP 
(processador de vídeo do MSX). 

Hoje, existe uma grande discussão sobre qual é a melhor interface com o usuário. Ao que 
tudo indica, a escolha unânime recairá sobre a interface gráfica. Mas, o que vem a ser uma 
interface gráfica? Aqueles que conhecem o mundo do PC, Macintosh e Amiga já tiveram, 
provavelmente, algum contato com o ambiente Windows (sistema operacional baseado numa 
interface gráfica). Este sistema operacional torna muito mais fáceis as tarefas para o usuário. 
Em vez do usuário digitar, por exemplo, o comando DIR B: para saber o conteúdo do disco 
no drive B, basta selecionar o ícone (figura) correspondente à este drive através do mouse ou 
teclado, pressionando em seguida um botão do mouse ou a tecla Return. Este é apenas um 
exemplo simples da potencialidade desses sistemas. Entre outras características, poderia des- 
tacar a capacidade de multiprocessamento (execução simultânea de vários programas) e a in- 
tegração entre os diversos programas que compõem o sistema. Esta integração é muito 
interessante por permitir a troca de dados entre, por exemplo, um aplicativo de desenhos e um 
processador de textos. 

Após a introdução acima, você deve estar se perguntando: "Por que nunca vi nada pare- 
cido no MSX?" A principal razão é que torna-se difícil projetar programas tão complexos usan- 
do somente 64Kb. "Então, quer dizer que nunca terei este tipo de programa no MSX?" Não 
necessariamente. A criatividade está aí para mostrar que não existem limites. Veja, por exem- 
plo, o caso do computador Apple II, que não possui tantos recursos como o MSX e, no entan- 
to, apresenta programas que utilizam a interface gráfica. Uma sugestão para quebrar a barreira 
dos 64Kb é usar a memória de disco em sacrifício da velocidade de execução do programa. 

Como vimos, a interface gráfica realmente permite uma utilização mais simples do compu- 
tador como um todo (equipamento + sistema operacional), embora se trate de um sistema ope- 
racional e não de um simples programa. Isto quer dizer, que no caso do MSX, teríamos de 
projetar todo um novo sistema operacional que permitisse o uso de tal interface. Como, since- 
ramente, não acredito que alguém financie tal projeto para uma máquina como o MSX, deve- 
mos considerar o que já existe. Assim sendo, o que temos ó um equipamento MSX (1 ou 2) 
com as seguintes características: 
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MSX 1 

MSX 2 

Modo Texto: 

40 colunas 

40, 80 colunas 


24 linhas 

24 linhas 


2 cores 

2 cores 

Modo Gráfico 

2:256 x 192 pontos 

256 x 1 92 pontos 


1 6 cores 

1 6 cores 


Tabela I.J.-Características dos modos de tela do VDP 


Observe que a tabela está propositalmente incompleta, tanto para o MSX 1 como para o 
MSX 2. Acontece que, neste capítulo, me concentrarei somente nestes dois modos de tela, 
por serem os mais usados nos programas aplicativos. No Apêndice A, você poderá encontrar 
uma tabela completa com todos os modos de tela de ambos os modelos. 

Você já deve ter observado que, com a exceção dos programas para desenhos, todos os 
aplicativos utilizam o modo texto. A principal razão para tal utilização se deve ao fato de que 
este modo é muito mais simples de ser acessado. Vamos então a uma pequena introdução ao 
gerenciamento do modo texto no VDP. 

Como sabemos, o VDP possui uma memória RAM própria de 16Kb no MSX 1 e de 128Kb 
no MSX 2. É nesta memória especial, chamada VRAM, que o VDP organiza o que aparece e 
o modo como aparece na tela do monitor. Basicamente, existem duas tabelas: a tabela de 
nomes, que contém um mapeamento completo do que aparece na tela, e a tabela de padrões, 
que contém os desenhos de todos os 256 (0-255) caracteres do MSX. Ao ligar o MSX, a roti- 
na de inicialização coloca os endereços destas duas tabelas na chamada área das variáveis 
do sistema. Vale lembrar mais uma vez que esses endereços não fazem referência à RAM 
normal do MSX, mas sim à RAM de vídeo (VRAM). A Figura 1.1 mostra os nomes e endereços 
(na RAM normal) das variáveis do sistema que contêm informações sobre o modo texto do 
VDP. Aqui cabe mais uma observação: neste livro, usarei os nomes originais das variáveis do 
sistema dados pela Microsoft. 


Nome 
da variável 

Endereço 

Conteúdo 

LINLEN 

#F3B0 

Número atual de colunas 

TXTNAM 

#F3B3 

Endereço na VRAM da Tabela de 
Nomes no modo texto 

TXTCGP 

#F3B7 

Endereço na VRAM da Tabela de 
Padrões dos caracteres no mo- 
do texto 

GRPNAM 

#F3C7 

Endereço na VRAM da Tabela de 
Nomes no modo gráfico 2 

GRPCOL 

#F3C9 

Endereço na VRAM da Tabela de 
Cores no modo gráfico 2 


Tabela f.2:Variáveis do sistema utilizadas neste capítulo 
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Nome 
da variável 

Endereço 

Conteúdo 

GRPCGP 

#F3CB 

Endereço na VRAM da Tabela de 
Padrões dos caracteres no mo- 
do gráfico 2 

GRPATR 

#F3CD 

Endereço na VRAM da Tabela de 
Atributos dos sprites no modo 
gráfico 2 

GRPPAT 

#F3CF 

Endereço na VRAM da Tabela de 
Padrões dos sprites no modo 
gráfico 2 

CSRY 

#F3DC 

Posição Y+1 do cursor na tela 
no modo texto 

CSRX 

#F3DD 

Posição X+1 do cursor na tela 
no modo texto 

SCRMOD 

#FCAF 

Modo atual da tela (0=modo 
texto, 1=modo gráfico 1, 
2=modo gráfico 2, etc). 


Tabela 1.2:M ariáveis do sistema utilizadas neste capítulo(continuação) 


As informações acima representam tudo o que precisamos para começar a projetar alguns 
efeitos especiais que não estão "disponíveis" no MSX. Você já deve ter observado que os pro- 
gramas aplicativos mais recentes fazem uso de uma técnica chamada menus pull-down. O 
que vem a ser isto? Esta técnica apresenta uma linha com opções, que uma vez seleciona- 
das, fazem surgir um menu embaixo da própria opção, que, por sua vez, apresenta opções 
adicionais. Esta técnica faz uso, portanto, do vídeo reverso (para destacar a atual opção) e das 
teclas do cursor, joystick ou mouse (para selecionar as opções no menu). Sendo assim, para 
empregá-la precisaremos desenvolver antes de tudo uma rotina que permita a simulação do 
vídeo reverso no MSX. 


A TABELA DE FORMAÇÃO DOS CARACTERES 

Como você já sabe (se tiver alguma dúvida, consulte o livro " Introdução à Linguagem de 
Máquina para MS)C, de minha autoria), o desenho de um caractere é formado por uma ma- 
triz de 8x8 bits. Tendo em vista que 8 bits formam 1 byte, cada desenho de caractere ocupa 8 
bytes da memória VRAM. A função do VDP é pesquisar na tabela de padrões o desenho de 
um determinado caractere para acender na tela os pontos (bits=1) que o formam. Tomemos 
como exemplo a letra A. Na Figura 1 .2, você pode observar como esta letra é desenhada usan- 
do-se o mapeamento por bits. Nesta figura, os bits iguais a 1 correspondem aos pontos que 
serão acesos pelo VDP, ao passo que os bits iguais a 0 permanecerão apagados. 
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BITS 

76543210 

Valor em decimal 

00110000 

48 

01001000 

72 

10000100 

132 

10000100 

132 

11111100 

252 

10000100 

132 

10000100 

132 

00000000 

0 

Figura 1.2: Desenho do caractere A usando o mapeamento por bits. 

Considerando tudo isto, o que poderíamos fazer para criar o vídeo reverso? Leve em conta 

que os bits iguais a 1 

no desenho acima correspondem aos pontos que serão acesos pelo 

VDP, a fim de colocar o caractere na tela. Acho que agora fica mais fácil, não? Basta inverter 
(trocar os bits iguais a 1 por zero e vice-versa) os bytes que formam o desenho do caractere 
para que o VDP acenda o fundo (bits iguais a 0 no desenho da Figura 1 .2) e apague o dese- 
nho do caractere (bits iguais a 1 na Figura 1 .2). O desenho invertido está na Figura 1 .3. Esta 
inversão de bits pode ser realizada empregando-se a instrução CPL do Z-80. Agora que a teo- 
ria já está entendida, vamos passar à prática. 

BITS 

76543210 

Valor em decimal 

11001111 

207 

10110111 

183 

01111011 

123 

01111011 

123 

00000011 

3 

01111011 

123 

01111011 

123 

11111111 

255 

Figura 1.3: Desenho invertido do caractere A usando o mapeamento por bits. 


Na prática, as coisas se complicam um pouco. Como o MSX só possui 256 (0-255) carac- 
teres, temos de alterar o desenho original de alguns deles para copiar nessas posições (lem- 
bre-se que os desenhos nada mais são do que conjuntos de 8 bytes) o desenho do caractere 
a inverter. Por exemplo, suponha que desejemos inverter a string "Eduardo Alberto". O que eu 
proponho ó inverter a letra E e colocar este desenho invertido nas posições ocupadas pelo 
desenho do caractere 224 (#E0), inverter a letra d e colocar o desenho dela invertido nas po- 
sições ocupadas pelo desenho do caractere 225 (#E1), e assim por diante. "Mas, Eduardo, 
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desse jeito estaremos perdendo os desenhos dos caracteres a partir de 224!" Certo, mas esse 
conjunto de caracteres (224 a 255) corresponde a caracteres especiais que raramente são uti- 
lizados. Desta form apoderemos inverter strings de até 32 caracteres de comprimento, pois 
de 224 a 255 temos exatamente 32 caracteres. "Mas, por que todo esse trabalho?" Acontece 
que no MSX, ao contrário do PC, por exemplo, só possuímos 2 cores para toda a tela, não po- 
dendo, portanto, definir uma cor para a frente (bits iguais a 1 ) e outra para o fundo (bits iguais 
a 0) de cada caractere individualmente. O único recurso que nos resta ó inverter literalmente 
o desenho dos caracteres que formam a string. Como você já deve ter percebido, ainda existe 
uma outra tarefa a realizar, além da inversão. Os códigos em ASCII da string invertida não 
serão os mesmos da string original, logo, temos de alterar também a própria string. Por exem- 
plo, se a string possuir um único caractere, digamos A, o código ASCII dessa string será 65, 
embora o código ASCII do caractere invertido seja 224. Como resolver esse problema? A so- 
lução é bem simples. Para isto, vamos estudar como o MSX manipula as strings. 


AS STRINGS NO MSX 

Uma string no MSX está associada a um ponteiro que indica um endereço na RAM. Este 
endereço nada mais ó do que uma área de 3 bytes com as seguintes funções: 

Byte 1 :Este byte contém o comprimento da própria string. 

Bytes 2 e 3:Estes dois bytes contêm o endereço da própria string na RAM. 

Assim sendo, o comando VARPTR do BASIC retorna exatamente com o endereço inicial, 
a partir do qual se encontram os bytes acima mencionados. Acho que já está claro que a nos- 
sa rotina deve obter o endereço inicial da própria string, examinando o conteúdo dos bytes 2 
e 3 acima mencionados, para dar início ao processo de substituição dos códigos ASCII origi- 
nais pelos dos caracteres invertidos. Felizmente, como a nossa rotina está projetada para fun- 
cionar através do comando DEFUSR do BASIC, o próprio sistema do MSX se encarregará de 
fornecer a ela o ponteiro para a área de 3 bytes acima mencionada. Desta forma, para inver- 
termos a string A$-"Eduardo Alberto" bastará entrar com o comando A$=USR(A$) para que 
a variável A$ passe a conter a string já invertida. 

Feitos todos os esclarecimentos, vamos à listagem da rotina em assembly do Z-80. 

O PROGRAMA PARA INVERSÃO DOS CARACTERES 

Listagem em assembly Z-80 do código-fonte do programa para Inversão de caracteres: 

;Prog rama-fonte para a inversão de caracteres. Compilar com 
; o programa GEN80.COM usando a seguinte sintaxe: 

;GEN80 PROG1 .BIN-PROG1 .GEN 

;onde PROG1 .GEN ó o nome do arquivo-texto com esta listagem 
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versão 

equ 

#002d 

linlen 

equ 

#f3b0 

valtyp 

equ 

#f663 

argusr 

equ 

#f7f8 

txtcgp 

equ 

#f3b7 


defb 

#fe 


defw 

inicio 


defw 

fim 


defw 

inicio 



org 

#d000 

inicio 

ld 

a, (valtyp) 


cp 

#03 


ret 

nz 


ld 

ix, (argusr) 


ld 

hl, (txtcgp) 


ld 

a.(versao) 


or 

a 


jr 

z, iniciol 


ld 

a.(linlen) 


cp 

41 


jr 

c, iniciol 


add 

hl, hl 

iniciol 

di 



push 

hl 


ld 

de,#e0*8 


add 

hl.de 


ex 

de, hl 


ld 

c,#e0 


ld 

b,(ix+#00) 


ld 

l,(ix+#01) 


ld 

h,(ix+#02) 


push 

hl 


pop 

ix 


pop 

hl 

loopl 

push 

bc 


push 

hl 


push 

de 


ld 

de, #0008 


ld 

b,(ix+#00) 

loop2 

add 

hl.de 


;simula em CP/M 
;o cabecalho de 
;um arquivo 
;.BIN 


;verifica parâmetro 
;ó string? Se não for 
;volta para o BASIC 
;ix-ponteiro para a string 
;hl=tab. de padrões 
;a=versão do MSX 
;é igual a zero (MSX 1)? 

;Sim, vai para inioiol 

;o MSX 2 está em 80 colunas? 

;Não, pula para iniciol 
;Sim, calcula end. da tabela 
;de padrões do MSX 2 

;desabilita as interrupções 
;salva hl 

;calcula o endereço do 
;desenho do caractere # e 0 
;de=end. do des. do carac. # e 0 
;c»#e0 

;b«núm. de caracs. da string 
;hl=endereço da string 


;ix=endereço da string 
;recupera hl 
;salva bc 
;salva hl 
;salva de 

;bytes no des. de cada carac. 
;b«caractere a inverter 
;calcula o endereço desse 



loop3 


rdvram 


rdvraml 


wtvram 
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djnz 

Ioop2 

;caractere 

pop 

de 

;recuperade 

ld 

b,#08 

prepara a modificação 

call 

rdvram 

;lê o byte original 

cpl 


;inverte 

ex 

de.hl 

transfere para o novo 

call 

wtvram 

;destino 

ex 

de.hl 


inc 

hl 

;hl«hl+1 

inc 

de 

;de=de+1 

djnz 

loop3 

;b=b-1 

pop 

hl 

;recupera hl 

pop 

bc 

;recupera bc 

ld 

(ix+#00),c 

;modifica a string 

inc 

c 

;c-c+1 

inc 

ix 

;aponta para o próximo carac. 

djnz 

toopl 

;repete até o fim da string 

ei 


;habilita as interrupções 

ret 


;vo!ta para o BASIC 

ld 

a.(versao) 

pbtém a versão do MSX 

or 

a 

;é MSX1? 

J> 

z.rdvraml 

;Sim, vai para rdvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


ld 

a,l 

jinforma ao 

out 

(#99),a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde será 

and 

#3f 

;lido o dado 

out 

(#99), a 


ex 

(sp).hl 

jdemora para 

ex 

(sp).hl 

;sÍncronização 

in 

a, (#98) 

;lô o dado na VRAM 

ret 




push 

af 

salva dado a ser gravado 

ld 

a, (versão) 

obtém a versão do MSX 

or 

a 

ó MSX1? 

jr 

z.wtvraml 

Sim, vai para wtvraml 

xor 

a 

Não, inicializa o VDP 

out 

(#99), a 

do MSX2 

ld 

a,#8e 


out 

(#99), a 
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wtvraml 

ld 

a,l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99),a 



ex 

(sp).hl 

;demora para 


ex 

(sp).hl 

;sincronização 


pop 

af 

.recupera o dado 


out 

(#98), a 

;grava o dado 


ret 



fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa para Inversão de caracteres: 

10 FOR A%=4HD000 TO &HD091 
20 READ B$ 

30 POKE A%, VAX (” tH"+B$) 

40 NEXT A« 

50 BSAVE "PR0G1.BIN", 6HD000, SHD0 91 

100 DATA 3A,63,F6,FE,03,C0,DD,2A,F8,F7,2A,B7,F3,3A,2D, 00 
110 DATA B7,28, 08, 3A, B0, F3, FE, 29, 38, 01, 29,F3,E5, 11, 00, 07 
120 DATA 19, KB, 0E,E0, DD, 46, 00, DD, 6E, 01, DD, 66, 02, E5, DD, El 
130 DATA El, C5, E5, D5, 11, 08, 00, DD, 46, 00, 19, 10, FD, Dl, 06, 08 
140 DATA CD, 59, D0 , 2F, EB, CD, 73 , D0, EB, 23,13,10, F3 , El , Cl , DD 
150 DATA 71 , 00, 0C, DD, 23 , 10, DA, FB, C9 , 3A, 2D, 00, B7 , 28 , 07 , AF 
160 DATA D3, 99, 3E, 8E,D3, 99, 7D,D3, 99, 7C, E6, 3F, D3, 99, E3, E3 
170 DATA DB, 98, C9,F5, 3A,2D, 00, B7, 28, 07, AF,D3, 99, 3E, 8E, D3 
180 DATA 99, 7D, D3, 99, 7C, E6, 3F, F6, 40 , D3, 99 , E3, E3, Fl, D3, 98 
190 DATA C9, 00 


Listagem do programa de teste: 

10BLOAD-PROG1.BIN" 

20 DEFUSR-&HD000 
30 CLS 

40 A$--MSX VERSÃO 2.0* 

50 LOCATE(40-LEN(A$))/2,1 0 
60 PRINTUSR(A$) 

70 IF INKEY$-~ THEN FOR A%-1 TO 100:NEXT A%:GOTO 50 
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COMENTÁRIOS SOBRE O PROGRAMA 
PARA INVERSÃO DOS CARACTERES 

Neste programa, aparecerão algumas rotinas e rótulos (labeis) que podem parecer estra- 
nhos a você. Os rótulos que ainda não tínhamos visto são os seguintes: 

versão aponta para o endereço #002D da ROM para sabermos a versão do MSX. 

(0=MSX1 , 1=MSX2) 

valtyp aponta para um endereço na área das variáveis do sistema que contém o tipo do ar- 
gumento da função USR do BASIC (2-inteiro, 3-string, etc.) 

argusr aponta para um endereço na área das variáveis do sistema que contém o valor pas- 
sado como argumento da função USR, se esse argumento for inteiro ou um ponteiro para a 
área de 3 bytes com as informações sobre a string, como vimos anteriormente. 

"Mas, se o MSX 1 e 2 são compatíveis, por que precisamos saber qual a versão do MSX?" 
Bem, realmente, as duas versões são compatíveis a nível de BIOS (rotinas de entrada/saída), 
mas não a nível de hardware. Como a nossa rotina faz um acesso direto ao VDP, e tendo em 
vista que os comandos de inicialização dele são diferentes de uma versão para outra, torna- 
se necessário saber a versão do MSX, para podermos realizar a inicialização corretamente. 
As rotinas que acessam a memória VRAM recebem os nomes rdvram e wtvram. A rotina 
rdvram (abreviação do inglês read vram - lô vram) tem como função ler o conteúdo de um en- 
dereço na memória VRAM. Na chamada a esta rotina, o par de registros HL deverá conter o 
endereço da memória VRAM cujo conteúdo desejamos ler. A rotina wtvram (abreviação do 
inglês write vram - escreve na vram) tem como função escrever um valor num endereço na 
memória VRAM. Na chamada a esta rotina, o par de registros HL deverá conter o endereço 
da memória VRAM cujo conteúdo será modificado. Note que o teste da versão do MSX é fei- 
to no início de cada uma destas rotinas, para realizar a inicialização correta do VDP. O progra- 
ma propriamente dito é simples e acho que os comentários após os comandos na listagem do 
código-fonte esclarecem todas as dúvidas sobre o funcionamento. Cabe aqui apenas um pe- 
queno esclarecimento: No início do programa, fazemos um teste para saber a versão do MSX. 
Se esse teste indicar que o programa está sendo executado num MSX 2, fazemos outro teste 
para verificar se o MSX 2 está funcionando no modo de 80 colunas. Isto se torna necessário 
porque, neste modo, o endereço da tabela de nomes indicado pela variável TXTNAM é incor- 
reto, pois a variável informa um endereço igual a #0800, quando, na verdade, o endereço real 
é #1000. Como #1 000 é o dobro de #0800 (lembre-se que o símbolo # indica quantidades na 
base hexadecimal), basta colocar a instrução ADD HL,HL para duplicarmos o endereço que 
HL está apontando. Como se vê, nem o projeto MSX está livre de bugs. 

Agora que você já sabe como inverter uma string de até 32 caracteres, vejamos mais al- 
gumas rotinas que podem criar efeitos interessantes na tela no modo texto. 
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ROTAÇÕES DA TELA NOS QUATRO SENTIDOS 

Um efeito que sempre me impressionou foi a rotação de telas nos quatro sentidos (direita, 
esquerda, para cima e para baixo). A rotação se caracteriza pela manutenção de todas as in- 
formações na tela, ou seja, se ela se der da direita para a esquerda, o primeiro caractere de 
uma linha passará a ser o último, o segundo passará a ser o primeiro, e assim por diante. Não 
existe perda de informações, mas sim uma reordenação das posições de tais informações. 
Pode parecer complicado, mas, como veremos, ó bem simples. 


A IMPORTÂNCIA DOS BUFFERS 

Antes de iniciar a apresentação das rotinas para a rotação de telas nos quatro sentidos, 
gostaria de apresentar um conceito geral, mas muito útil. Você tem idéia de algum artifício pa- 
ra acelerar as transferências de dados? Digamos que você queira acelerar a leitura dos dados 
do seu disquete para a memória do computador. Qual seria, no seu entender, o modo mais 
rápido? Ler 1 byte por vez ou ler 128 bytes ao mesmo tempo(bu mais ainda)? O bom senso 
diz que a última opção ó a mais rápida. Mas, por quê? A resposta ó simples: Ao ler 1 byte por 
vez, você teria de realizar 128 operações de leitura para poder ler um bloco de 128 bytes, ao 
passo que na leitura de 1 28 bytes de uma só vez você realizaria uma única leitura para o mes- 
mo bloco. Existe tanto uma economia de instruções (o que equivale a uma economia de 
memória e de tempo de execução) como também uma economia no esforço despendido pe- 
lo próprio drive (movimentação da cabeça, etc.). A este tipo de acumulação de dados, resul- 
tantes de operações de entrada/saída, dá-se o nome de bufferização. Quanto maior for o buffer, 
mais rápida será a operação de entrada/saída, entre outros motivos, porque a velocidade de 
acesso aos dados na memória RAM ó muito maior do que a do acesso a qualquer periférico 
do computador (VRAM, drives, impressoras, etc.). "Mas, então, como saber se o buffer que eu 
criei é suficiente ou não?" A resposta mais correta a esta pergunta está no bom senso. Você 
deve usar um buffer que não seja grande demais a ponto de sacrificar as exigências de 
memória do seu próprio programa, e nem pequeno demais a ponto de se mostrar ineficiente 
para o propósito que foi criado. O ideal seria reservar uma memória à parte como uma ex- 
pansão do tipo MEGARAM para cumprir o papel de buffer, ao invés de sacrificar os 64Kb da 
memória RAM de acesso direto. Mais à frente, vamos ver que podemos usar a própria VRAM 
como um pequeno buffer para o armazenamento temporário de dados. Enfim, os limites sem- 
pre existem, mas a criatividade pode superá-los facilmente. 

ALGORITMO PARA ROTAÇÃO DA TELA DE TEXTO 

Dadas estas explicações, ficou claro que o uso do buffer se torna indispensável nas ope- 
rações que exijam rapidez. A minha sugestão ó que, para fazer a rotação de uma linha 7 deve- 
mos lê-la para a memória, rotá-la aí e, por fim, reescrevê-la, já rotada, na tela do monitor. Será 
que você já sabe a tabela que vamos usar? É a tabela de nomes ou a tabela de padrões? Pa- 
ra ajudar na sua resposta, leve em consideração que, anteriormente, afirmei que a tabela de 
nomes informa ao VDP quais os caracteres que aparecem no vídeo e como aparecem. Acho 
que agora a resposta já está bem clara, não? Já que vamos trabalhar com a tabela de nomes, 
vamos entender o seu funcionamento. A tabela de nomes nada mais é do que um mapa do 
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que aparece no vídeo. Como temos , 40 colunas e 24 linhas no modo texto do MSX 1 , logo te- 
mos 24*40-960 posições na tela (no MSX 2, o cálculo permanece válido se você estiver no 
modo de 40 colunas; em 80 colunas temos exatamente o dobro de posições). Com este cálcu- 
lo, já vimos que a tabela de nomes tem exatamente 960 bytes de comprimento (em 40 colu- 
nas), destinando exatamente um byte para cada caractere que aparece na tela. Para posicionar 
um determinado caractere na tela, você usa o comando LOCATE do BASIC acompanhado 
das coordenadas x e y, com x variando de 0 a 39 e y de 0 a 23. Para posicionar um caractere 
diretamente na tabela de nomes, as coisas não são tão fáceis, já que o VDP só entende en- 
dereços para a memória VRAM. Desta forma, o mapeamento na tabela de nomes ó puramente 
seqüencial, ou seja, a posição (0,0) do BASIC corresponde ao endereço 0 da VRAM; a po- 
sição (1,0) ao endereço 1; a posição (39,0) ao endereço 39; a posição (0,1) ao endereço 40, 
e assim por diante. Embora não seja necessário para as rotinas de rotação da tela, se você 
quiser acessar a tabela de nomes usando parâmetros do tipo x,y terá de criar uma rotina pa- 
ra esta finalidade (observe a rotina poslt no programa que cria janelas). 

Dadas as explicações, vamos às listagens dos programas. 


O PROGRAMA QUE 

IMPLEMENTA A ROTAÇÃO PARA A ESQUERDA 

Listagem em assembly Z-80 do código-fonte do programa para rotar a tela para a es- 
querda: 

;Programa-fonte para a rotação da tela para a esquerda. 
iCompilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG2.BIN-PROG2.GEN 

;onde PROG2.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


vattyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 
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inicio 




ld 

a.(valtyp) 


cp 

#02 


ret 

nz 


ld 

a.(argusr) 


push 

af 


ld 

a, (versão) 


or 

a 


jr 

z, iniciol 


ld. 

a.(linlen) 


cp 

41 


jr 

c, iniciol 


ld 

a, 80 



jr inicio2 

iniciol 

ld 

a, 40 

inicio2 

ld 

(numcol), a 


pop 

af 


di 



kJ 

b.a 

loopl 

push 

bc 


ld 

hl.(txtnam) 


ld 

a, (numcol) 


ld 

e.a 


ld 

d, #00 


ld 

b,24 

loop2 

push 

bc 


call 

setvdprd 


ld 

a, (numcol) 


push 

de 


push 

hl 


ld 

hl.bufferlinha 


ld 

b.a 


call 

lelinha 


ld 

a, (numcol) 


ld 

hl.bufferlinha 


ld 

e.a 


ld 

d, #00 


ld 

a, (hl) 


add 

hl.de 


ld 

(hl).a 


pop 

hl 


pop 

de 


call 

setvdpwt 


push 

de 


push 

hl 


;verifica parâmetro 
;ó inteiro? 

;Não, volta para o BASIC 
;a*número de rotações 
;salva número de rotações 
;a*versão do MSX 
;ó igual a zero (MSX 1 )? 

;Sim, vai para iniciol 

;o MSX 2 está em 80 colunas? 

;Não, pula para iniciol 
;Sim, a=80 colunas 
;pula para inicio2 se MSX 2 
;a«40 colunas 

;coloca o núm. col. em numcol 
jrecupera o núm. de rotações 
;desabilita as interrupções 
;b-número de rotações 
;salva contador externo 
;hl«end. tabela de nomes 
;a=núm. de colunas 
;de-núm. de colunas 

;b~24 linhas na tela 
;salva contador intermediário 
prepara o vdp para leitura 
;a=núm. de colunas 
;salva de 
;salva hl 

;hl aponta para o buffer 
;b-núm. de colunas 
;lê uma linha 
;a-núm. de colunas 
;hl aponta para o buffer 
;de-núm. de colunas 

;a=primeiro carac. da linha 
;hl-aponta para o fim da 
;linha+1 

jcoloca o primeiro carac. na 
;última posição 
;recupera hl 
;recupera de 

prepara o VDP para escrita 
;salva de 
;salva hl 
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ld 

hl,bufferlinha+1 

;hl aponta para o buffer* 1 

ld 

a p (numcol) 

;a-núm. de colunas 

ld 

b,a 

;b-núm. de colunas 

all 

esclinha 

;envia a linha já rotada 

pop 

hl 

;recupera hl 

pop 

de 

;recupera de 

add 

hl.de 

;hl aponta para a próx. linha 

pop 

bc 

;recupera bc 

djnz 

loop2 

;repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

loopl 

;repete até terminar todas 
;as rotações 

ei 


;habilKa as interrupções 

ret 


'.retorna ao BASIC 

lelinha 

in 

a, (#98) 

;lê o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

;prepara a próxima leitura 

ret 


;retorna 

esclinha 

ld 

a.(hl) 

;lê o carac. do buffer 

out 

(#98), a 

;escreve-o na VRAM 

inc 

hl 

;incrementa o ponteiro 

djnz 

esclinha 

prepara a próxima escrita 

ret 


;retorna 


setvdprd 



ld 

a, (versão) 

pbtém a versão do MSX 

or 

a 

;ó MSX1? 

jr 

z.rdvraml 

;Sim, vai para rdvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


rdvraml ld 

a.l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde será 

and 

#3f 

;lido o dado 

out 

(#99), a 


ret 
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setvdpwt 


ld 

a, (versão) 

;obtém a versão do MSX 

or 

a 

;é MSX1? 

jr 

2 , wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


wtvraml kJ 

a.l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99), a 


ret 




bufferlinha 

defs 

81 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela para a esquer- 
da: 

10 TOR A%»&HD000 TO &HD0A2 
20 READ B$ 

30 POKE A%, VAL (" tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG2 .BIN", &HD000, &HD0A2 

100 DATA 3A, 63, F6, FE, 02 , C0, 3A, F8, F7 , F5, 3A, 2D, 00 , B7, 28, 0B 
110 DATA 3A,B0,F3,FE, 29, 38, 04, 3E, 50, 18, 02, 3E, 28, 32, F4, D0 
120 DATA Fl, F3, 47, C5, 2A, B3, F3, 3A, F4 , D0, 5F, 16, 00,06,18,C5 
130 DATA CD, 75, D0, 3A, F4 , D0, D5 , E5, 21 , A3, D0, 47, CD, 67 , D0, 3A 
140 DATA F4 , D0, 21 , A3, DO , 5F, 16, 00, 7E, 19, 77, El, Dl, CD, 8B, DO 
150 DATA D5,E5,21,A4,D0,3A,F4,D0, 47, CD, 6E, DO, El, Dl, 19, Cl 
160 DATA 10, CD, Cl , 10, BE, FB, C9, DB, 98, 77, 23, 10, FA, C9, 7E, D3 
170 DATA 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E 
180 DATA D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, C9, 3A, 2D, 00, B7, 28 
190 DATA 07 , AF, D3 , 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6 , 3F, F6, 40 
200 DATA D3, 99, C9 
DATA D3, 99, C9 



O PROGRAMA QUE 

IMPLEMENTA A ROTAÇÃO PARA A DIREITA 
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Listagem em assembly Z-80 do código-fonte do programa para rotar a tela para a direi- 
ta: 


;Programa-fonte para a rotação da tela para a direita. 

;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG3.BIN-PROG3.GEN 

;onde PROG3.GEN é o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

«f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 



org 

#dOOO 


inicio 

ld 

a.(valtyp) 

;verifica parâmetro 


cp 

#02 

;é inteiro? 


ret 

nz 

;Não, volta para o BASIC 


ld 

a, (argusr) 

;a-número de rotações 


push 

af 

;salva número de rotações 


ld 

a, (versão) 

;a«versão do MSX 


or 

a 

;ó igual a zero (MSX 1)? 


V 

z, iniciol 

;Sim, vai para iniciol 


ld 

a,(linlen) 

;o MSX 2 está em 80 colunas? 


cp 

41 



j r 

c, iniciol 

;Não, pula para iniciol 


ld 

a,80 

;se estiver a-80 colunas 


]r 

inicio2 

;pula para inicio2 se MSX2 

iniciol 

ld 

a, 40 

;a-40 colunas 
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inicio2 


loopl 


loop2 


ld 

(numcol), a 

pop 

af 

di 


ld 

b.a 

push 

bc 

ld 

hl.(txtnam) 

ld 

a, (numcol) 

ld 

e.a 

ld 

d, #00 

ld 

b,24 

push 

bc 

call 

setvdprd 

ld 

a.(numcol) 

push 

de 

push 

hl 

ld 

hl,bufferlinha+1 

ld 

b.a 

call 

lelinha 

ld 

a, (numcol) 

ld 

hl.bufferlinha 

ld 

e.a 

ld 

d,#00 

add 

hl.de 

ld 

a, (hl) 

ld 

hl.bufferlinha 

ld 

(hl), a 

pop 

hl 

pop 

de 

call 

setvdpwt 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

a, (numcol) 

ld 

b.a 

call 

esdinha 

pop 

hl 

pop 

de 

add 

hl.de 

pop 

bc 

djnz 

loop2 

pop 

bc 

djnz 

loopl 

ei 


ret 



;coloca o núm. col. em numcol 
jrecupera o núm. de rotações 
;desabilita as interrupções 
;b-número de rotações 
;salva contador externo 
;hl-end. tabela de nomes 
;a-núm. de colunas 
;de=núm. de colunas 

;b«24 linhas na tela 
;salva contador intermediário 
prepara o VDP para leitura 
;a-núm. de colunas 
;salva de 
;salva hl 

;hl aponta para o buffer* 1 
;b=núm. de colunas 
;lê uma linha 
;a=núm. de colunas 
;hl aponta para o buffer 
;de«núm. de colunas 

;hl aponta para o últ. carac. 
;a-úftimo carac. da linha 
;hl aponta para o buffer 
;coloca o último caractere 
;na primeira posição 
;recupera hl 
;recupera de 

prepara o VDP para escrita 
;salva de 
;salva hl 

;hl aponta para o buffer 
;a-núm. de colunas 
;b-núm. de colunas 
;envia a linha já rotada 
;recupera hl 
;recupera de 

;hl aponta para a próx. linha 
;recupera bc 

;repete para as demais linhas 
;recupera bc 

;repete até terminar todas 
;as rotações 
lhabilita as interrupções 
;retorna ao BASIC 



lelinha 


in 

a, (#98) 

;lê o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

prepara a próxima leitura 

ret 


;retorna 


esclinha 



ld 

a, (hl) 

;lê o carac. do buffer 

out 

(#98), a 

;escreve-o na VRAM 

inc 

hl 

;incrementa o ponteiro 

djnz 

esclinha 

prepara a próxima escrita 

ret 


;retorna 


setvdprd 

ld 

a, (versão) 

pbtém a versão do MSX 


or 

a 

;ó MSX1? 


jr 

z.rdvraml 

;Sim, vai para rdvram 1 


xor 

a 

;Não, inicializa o VDP 


out 

(#99),a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvram 1 

ld 

a,l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde será 


and 

#3f 

;lido o dado 


out 

(#99), a 



ret 




setvdpwt 

ld 

a.(versao) 

pbtém a versão do MSX 


or 

a 

;ó MSX1? 


jr 

z, wtvraml 

;Sim, vai para wtvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a,l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 
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ret 


bufferlinha 

defs 

81 

nu meo 1 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela para a direita 


10 FOR A%*tHD000 TO &HD0A5 
20 READ B$ 

30 POKE A% , VAL (" SH"+B$) 

40 NEXT A« 

50 BSAVE "PROG3.BIN", 6HD000, &HD0A5 

100 DATA 3A, 63, F6 , FE, 02 , C0, 3A, F8 , F7 , F5, 3A, 2D, 00 , B7 , 28, 0B 
110 DATA 3A,B0,F3,FE,29,38,04,3E,50,18,02,3E,28,32,F7,D0 
120 DATA F1 , F3, 47 , C5, 2A, B3 , F3 , 3A, F7 , D0 , 5F, 16, 00, 06, 18, C5 
130 DATA CD,78,D0,3A,F7,D0,D5,E5,21,A7,D0,47,CD,6A,D0,3A 
140 DATA F7,D0,21,A6,D0,5F,16,00,19,7E,21,A6,D0,77,E1,D1 
150 DATA CD, 8E, D0, D5, E5 , 21, A6, D0, 3A, F7, D0, 47, CD, 71 , D0, El 
160 DATA Dl , 19, Cl , 10, CA, Cl ,10, BB, FB, C9, DB, 98, 77,23, 10, FA 
170 DATA C9, 7E, D3, 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28,07, AF, D3 
180 DATA 99, 3E, 8E,D3, 99,7D,D3, 99, 7C,E6, 3F,D3, 99, C9, 3A, 2D 
190 DATA 00, B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99, 7 D, D3, 99, 7C, E6 
200 DATA 3F,F6, 40, D3, 99, C9 


Listagem do programa de teste: 

100 CLS 

110 DEFINTA-Z:DIMA$(2) 

1 20 A$(1 )-"esquerdal" 

130A$(2)-"direitar 

140A-2:B-2 

150 DEFUSR-&HD000 

160WIDTH 40 

170GOSUB200 

180 GOSUB200 

1 90 GOTOI 70 

200 CLSIOCATE 1,10 

210B-BXOR3 

220 PRINFRotação para a ";A$(B) 
230 A-AXOR1 
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240 BLOAD"prog“+MID$(STR$(A),2, 1 )+".bin" 
250Z-USR(40) 

260 RETURN 


O PROGRAMA QUE 

IMPLEMENTA A ROTAÇÃO PARA CIMA 


Listagem sm assembly Z-80 do código-fonte do programa para rotar a tela para cima: 

;Prog rama-fonte para a rotação da tela para a cima. 

;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG4.BIN-PROG4.GEN 


;onde PROG4.GEN é o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


vattyp 


equ 

#f663 


argusr 


equ 

#f7f 8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 


inicio 



ld 

a,(valtyp) 

.•verifica parâmetro 

cp 

#02 

;ó inteiro? 

ret 

nz 

;Não, volta para o BASIC 

ld 

a, (argusr) 

;a-número de rotações 

push 

af 

;salva número de rotações 

ld 

a, (versão) 

;a-versão do MSX 

or 

a 

;é igual a zero (MSX 1)? 

V 

z.iniciol 

;Sim, vai para iniciol 

ld 

a, (linlen) 

;o MSX 2 está em 80 colunas? 

cp 

41 
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jr 

c, iniciol ;Não, pula para iniciol 


ld 

a,80 

se estiver a-80 colunas 


V 

inicio2 ;pu!a para inicio2 se MSX 2 

iniciol 

ld 

a, 40 ;a-40 colunas 

inicio2 

ld 

(numcol),a ;coloca o núm. col. em numcol 


pop 

af ;recupera o núm. de rotações 


di 

;desabilita as interrupções 


ld 

b.a 

b-número de rotações 

loopl 

push 

bc 

salva contador externo 


ld 

hl.(txtnam) 

hUend. tabela de nomes 


ld 

a, (numcol) 

a-núm. de colunas 


ld 

e,a ;de-núm. de colunas 


ld 

d, #00 



ld 

b.a 

b-núm. de colunas 


call setvdprd 

prepara o VDP para leitura 


push 

hl 

salva hl 


ld 

hl.primlinha 

hl aponta para primilinha 


call 

lelinha 

lê a primeira linha 


pop 

hl 

recupera hl 


ld 

b,23 

b»24 linhas na tela 

k>op2 

push 

bc 

salva contador intermediário 


add 

hl.de 

hl aponta para a próx. linha 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a.(numcol) 

a-núm. de colunas 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha 

hl aponta para o buffer 


ld 

b.a 

b-núm. de colunas 


call 

lelinha 

lâ uma linha 


pop 

hl 

recupera hl 


pop 

de 

recupera de 


xor 

a 

,zera a flag de carry 


sbc 

hl.de 

hl aponta para a linha 
anterior 


call 

setvdpwt 

prepara o VDP para escrita 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha 

hl aponta para o buffer 


ld 

a, (numcol) 

aimúm. de colunas 


ld 

b.a 

b-núm. de colunas 


call 

esclinha 

envia a linha 


pop 

hl 

recupera hl 


pop 

de 

recupera de 


add 

hl.de 

hl aponta para a próx. linha 


pop 

bc 

recupera bc 


djnz 

loop2 

repete para as demais linhas 


call 

setvdpwt 

prepara o VDP para escrita 
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ld 

hl.primlinha 

;hl aponta para o buffer 
primlinha 

ld 

a p (numcol) 

;a=núm. de colunas 

ld 

b,a 

;b«núm. de colunas 

call 

esclinha 

;envia a linha 

pop 

bc 

;recupera bc 

djnz 

loopl 

;repete até terminar todas 
;as rotações 

ei 


;habilita as interrupções 

ret 


;retorna ao BASIC 


lelinha 

in 

a, (#98) 

;lê o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

prepara a próxima leitura 


ret 


jretorna 

esclinha 

ld 

a, (hl) 

;lê o carac. do buffer 


out 

(#98),a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


;retorna 


setvdprd 

ld 

a.(versao) 

pbtém a versão do MSX 


or 

a 

;é MSX1? 


jr 

z, rdvraml 

;Sim, vai para rdvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99),a 

;do MSX2 


ld 

a,#8e 



out 

(#99),a 


rdvraml 

ld 

a,l 

jinforma ao 


out 

(#99),a 

;VDP o endereço na 


ld 

a.h 

;VRAM onde será 


and 

#3f 

;lido o dado 


out 

(#99), a 



ret 




setvdpwt 

ld 

a, (versão) 

pbtém a versão do MSX 


or 

a 

;é MSX1? 


j' 

z.wtvraml 

;Sim, vai para wtvraml 
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wtvraml 


xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


ld 

a.l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a.h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99),a 


ret 




bufferlinha 

defs 

80 

primlinha 

defs 

80 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela para cima: 

10 FOR A%=4HD000 TO &HD0B3 
20 READ B$ 

30 POKE A% , VAL ( " 4H"+B$) 

40 NEXT A% 

50 BSAVE "PROG4 . BIN" , fcHDOOO , SHD0B3 

100 DATA 3A, 63, F6, FE, 02, C0, 3A, F8, F7 , F5, 3A, 2D, 00, B7, 28, 0B 
110 DATA 3A, B0, F3, FE, 29, 38, 04 , 3E, 50 , 18, 02 , 3E, 28 , 32 , 54 , Dl 
120 DATA F1 , F3, 47 , C5, 2A, B3, F3 , 3A, 54, Dl, 5F, 16, 00, 47, CD, 86 
130 DATA D0, E5, 21 , 04, Dl , CD, 78, D0, El , 06, 17 , C5, 19 , CD, 86, D0 
140 DATA 3A,54,D1,D5,E5,21,B4,D0, 47, CD, 78, D0, El, Dl, AF,ED 
150 DATA 52, CD, 9C, D0, D5, E5, 21 , B4 , D0, 3A, 54 , Dl , 47, CD, 7F, DO 
160 DATA El, Dl, 19, Cl, 10, D5, CD, 9C, DO, 21, 04, Dl, 3A, 54, Dl, 47 
170 DATA CD, 7F , DO, Cl, 10, AD, FB, C9, DB, 98, 77,23, 10, FA, C9, 7E 
180 DATA D3, 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E 
190 DATA 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, C9, 3A, 2D, 00, B7 
200 DATA 28,07, AF , D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, F6 
210 DATA 40, D3, 99, C9 
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O PROGRAMA QUE 

IMPLEMENTA A ROTAÇÃO PARA BAIXO 

Listagem em assembly Z-80 do código-fonte do programa para rotar a tela para baixo: 

;Programa-fonte para a rotação da tela para baixo. 

;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG5.BIN-PROG5.GEN 

;onde PROG5.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 



org 

#d000 


inicio 

ld 

a, (valtyp) 

verifica parâmetro 


cp 

#02 

;ó inteiro? 


ret 

nz 

;Não, volta para o BASIC 


ld 

a, (argusr) 

;a«número de rotações 


push 

af 

;salva número de rotações 


ld 

a, (versão) 

;a-versão do MSX 


or 

a 

;ó igual a zero (MSX 1)? 


V 

z, iniciol 

;Sim, vai para iniciol 


ld 

a, (linlen) 

;o MSX 2 está em 80 colunas? 


cp 

41 



jr 

c, iniciol 

;Não, pula para iniciol 


ld 

a,80 

;se estiver a-80 colunas 


jr 

inicio2 

;pula para inido2 se MSX 2 

iniciol 

ld 

a,40 

;a«40 colunas 

inicio2 

ld 

(numcol).a 

; co toca o núm. col. em numcol 
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pop 

af 

;recupera o núm. de rotações 


di 


;desabilita as interrupções 


ld 

b,a 

;b-número de rotações 

loopl 

push 

bc 

;salva contador externo 


ld 

hl.(txtnam) 

;hl«end. tabela de nomes 


ld 

a.(numcol) 

;a-núm. de colunas 


ld 

e.a 

;de-núm. de colunas 


ld 

d, #00 



ld 

b,23 

;b»núm. de linhas-1 

calult 

add 

hl.de 

;calcula o endereço da 


djnz 

calult 

;última linha 


ld 

b.a 

;b«núm. de colunas 


call setvdprd 

prepara o VDP para leitura 


push 

hl 

;salva hl 


ld 

hl.ultlinha 

;hl aponta para o buffer 




;ultlinha 


call 

lelinha 

;lê a última linha 


pop 

hl 

;recupera hl 


ld 

b,23 

;b*23 linhas na tela 

loop2 

push 

bc 

;salva contador intermediário 


xor 

a 

;zera a flag de carry 


sbc 

hl.de 

;hl aponta para a linha ant. 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a.(numcol) 

;a«núm. de colunas 


push 

de 

;salva de 


push 

hl 

;salva hl 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

b.a 

;b-núm. de colunas 


call 

lelinha 

;lê uma linha 


pop 

hl 

;recupera hl 


pop 

de 

;recupera de 


add 

hl.de 

;hl aponta para a próx. linha 


call 

setvdpwt 

prepara o VDP para escrita 


push 

de 

;salva de 


push 

hl 

;salva hl 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

a.(numcol) 

;a-núm. de colunas 


ld 

b,a 

;b«núm. de colunas 


call 

esclinha 

;envia a linha 


pop 

hl 

;recupera hl 


pop 

de 

;recupera de 


xor 

a 

;zera a flag de carry 


sbc 

hl.de 

;hl aponta para a linha ant. 


pop 

bc 

;recupera bc 


djnz 

k>op2 

;repete para as demais linhas 


call 

setvdpwt 

prepara o VDP para escrita 


ld 

hl.ultlinha 

;hl aponta para o buffer 



Id 

a,(numcol) 

;primlinha 

;a-núm. de colunas 

kJ 

b.a 

;b-núm. de colunas 

call 

esclinha 

;escreve a última linha na 

pop 

bc 

primeira linha 
;recupera bc 

djnz 

loopl 

;repete até terminar todas 

ei 


;as rotações 
;habilita as interrupções 

ret 


;retorna ao BASIC 


lelinha 



in 

a, (#98) 

;lê o carac. da VRAM 

Id 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

prepara a próxima leitura 

ret 


;retorna 


esclinha 



Id 

a, (hl) 

;lê o carac. do buffer 

out 

(#98), a 

;escreve-o na VRAM 

inc 

hl 

;incrementa o ponteiro 

djnz 

esclinha 

prepara a próxima escrita 

ret 


;retorna 


setvdprd 

Id 

a, (versão) 

pbtém a versão do MSX 


or 

a 

;ó MSX1? 


V 

z, rdvraml 

;Sim, vai para rdvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


Id 

a,#8e 



out 

(#99), a 


rdvraml 

Id 

a.l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


Id 

a,h 

;VRAM onde será 


and 

#3f 

;lido o dado 


out 

(#99), a 



ret 




setvdpwt 

Id 

a, (versão) 

pbtém a versão do MSX 


or 

a 

;ó MSX1? 
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jr z, wtvraml 

xor a 

out (#99), a 

ld a,#8e 

out (#99), a 

wtvraml ld a.l 

out (#99), a 

ld a,h 

and #3f 

or #40 

out (#99), a 

ret 


bufferlinha 

defs 

80 

ultlinha 

defs 

80 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela para baixo: 

10 rOR A%=fcHD000 TO íHDOBA 
20 READ B$ 

30 POKE A%,VAL("6H"+B$) 

40 NEXT A% 

50 BSAVE "PROG5.BIN", 4HD000, fiHDOBA 

100 DATA 3A, 63, F6, FE, 02 , C0, 3A, F8, F7 , F5, 3A, 2D, 00, B7, 28, 0B 
110 DATA 3A, B0, F3 , FE, 29, 38, 04 , 3E, 50, 18, 02 , 3E, 28 , 32, 5B, Dl 
120 DATA ri , F3, 47, C5, 2A, B3, F3, 3A, 5B, Dl, 5F, 16, 00, 06, 17, 19 
130 DATA 10, FD, 47, CD, 8D, D0, E5 , 21, 0B, Dl , CD, 7F, D0 , El , 06, 17 
140 DATA C5, AF, ED, 52, CD, 8D, D0, 3A, 5B, Dl , D5, E5, 21 , BB, D0, 47 
150 DATA CD, 7F, D0, El, Dl , 19, CD, A3, DO, D5, E5 , 21 , BB, DO, 3A, 5B 
160 DATA Dl , 47, CD, 86, DO, El, Dl , AF, ED, 52, Cl , 10, D3, CD, A3, DO 
170 DATA 21 , OB, Dl , 3A, 5B, Dl, 47 , CD, 86 , DO, Cl , 10, A6, FB, C9, DB 
180 DATA 98,77,23,10, FA, C9, 7E, D3, 98, 23,' 10, FA, C9, 3A, 2D, 00 
190 DATA B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F 
200 DATA D3,99,C9,3A, 2D, 00, B7, 28, 07 , AF, D3, 99, 3E, 8E, D3, 99 
210 DATA 7D,D3, 99, 7C,E6,3F,F6, 40, D3, 99, C9 


;Sim, vai para wtvraml 
;Não, inicializa o VDP 
;do MSX2 


;informa ao 
;VDP o endereço na 
;VRAM onde o 
;dado será 
;gravado 
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Listagem do programa de teste: 

100 CLS 

110 DEFINTA-Z:DIMA$(2) 

120 A$(1)-"acima!" 

130 A$(2)-"abaixo|- 
140 A-4:B-1 
150DEFUSR-&HD000 
160WIDTH 40 
170 GOSUB200 
180 GOSUB200 
1 90 GOTOI 70 
200 CLS:LOCATE 1,10 
210 B-BXOR3 

220 PRINT"Rotação para a ";A$(B) 

230 A-AXOR1 

240 BLOAD"prog"+MID$(STR$(A),2,1 )+-.bin- 
250 Z«USR(24) 

260 RETURN 


COMENTÁRIOS SOBRE 
OS PROGRAMAS DE ROTAÇÃO DA TELA 

O princípio do funcionamento dos programas 2 e 3 (rotações laterais da tela) ó bem sim- 
ples. Em ambos os programas, a primeira coisa a fazer ó detectar o ambiente onde eles estão 
sendo executados. Não podemos nos esquecer que as rotinas de inicialização do vídeo são 
diferentes entre os modelos 1 e 2 do MSX. Terminados os exames do ambiente, procede-se 
à leitura e à rotação linha a linha de cada uma das 24 linhas da tela. Observe que, embora 
possamos ter 40 ou 80 colunas, dependendo do modelo do MSX, o número de linhas estará 
sempre limitado a 24. Nós já vimos que o buffer em RAM acelera em muito as operações de 
entrada/saída. Assim sendo, a rotação da tela se processa da seguinte forma: 

1 .Ler toda uma linha da tela para o buffer (buff erlinha) em RAM. Neste passo, temos uma trans- 
ferência da VRAM para a RAM realizada pela rotina lelinha; 

2. Na rotação de tela para a esquerda, obter o primeiro caractere da linha (situado em buffer- 
linha) e colocá-lo na última posição (bufferlinha+40 ou bufferlinha+80); 

3. Apontar o ponteiro (HL) para o início da nova linha (bufferlinha+1). Observe que o termo li- 
nha, nos passos 2 e 3, se refere à cópia da verdadeira linha no buffer em RAM. Este passo se 
torna necessário para que o segundo caractere da linha original na tela se torne o primeiro ca- 
ractere da nova linha; o terceiro caractere se torne o segundo, e assim por diante, para dar o 
efeito de rotação para a esquerda; 
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4. Escrever a linha já rotada na memória de vídeo (VRAM). Neste passo, temos uma trans- 
ferência da RAM para a VRAM realizada pela rotina esclinha, e; 

5. Repetir os passos de 1 a 4 para as demais linhas da tela. 

Como você pode ver, as rotinas são bem simples. Se você tiver mais alguma dúvida acom- 
panhe os comentários nas listagens do código-fonte. 

Os programas 4 e 5 (rotações verticais da tela) são igualmente simples de serem com- 
preendidos. Até aqui, tenho usado os termos programa e rotina como sinônimos, embora não 
o sejam. Acontece que os programas aqui apresentados são programas na medida em que 
são plenamente executáveis, e rotinas no sentido de que podem ser incluídos dentro de ou- 
tros programas onde serão chamados como tal. O algoritmo usado nestes dois programas é 
o seguinte: 

1. Ler a primeira linha (no caso da rotação para cima) da tela, arquivando-a num buffer espe- 
cial em RAM (primlinha). Neste passo, temos uma transferência da VRAM para a RAM; 

2. Ler a segunda linha da tela, arquivando-a num buffer em RAM (bufferlinha). Neste caso, te- 
mos uma transferência da VRAM para a RAM; 

3. Escrever a linha arquivada no buffer (bufferlinha) na posição ocupada pela linha anterior, ou 
seja, escrever a segunda linha por sobre a primeira, e assim por diante. Neste caso, temos 
uma transferência da RAM para a VRAM; 

4. Repetir os passos 2 e 3 para as demais linhas da tela, e; 

5. Escrever a linha arquivada no buffer primlinha na posição ocupada pela última linha original 
da tela. Neste passo, temos a última transferência da RAM para a VRAM. 

Os passos acima continuam válidos para a rotação para baixo da tela, só que em vez de 
se salvar a primeira linha, salva-se a última. Mais uma vez, aconselho você a ler os comentários 
nas listagens do código-fonte dos 4 últimos programas. 


ARQUIVANDO AS TELAS NA VRAM 

Vamos então dar uma pequena pausa nos efeitos especiais para apresentar dois progra- 
mas/rotínas muito úteis. Estou certo de que já surgiu o momento em que você desejou poder 
arquivar a tela atual para recuperá-la num ponto futuro dentro do seu programa. Em que algo- 
ritmo você pensou para realizar tal tarefa? Vamos raciocinar juntos. Temos dois métodos cu- 
ja escolha ó quase imediata: arquivar a tela na RAM não utilizada pelo BASIC (a RAM nas 
páginas 0 e 1 , ou seja, a RAM entre os endereços #0000 e #7FFF) usando as rotinas da BIOS, 
ou arquivá-la num array do tipo inteiro ou do tipo string usando a RAM disponível para o BA- 
SIC. A última hipótese não ó muito aceitável, tendo em vista que a memória RAM para o BA- 
SIC já ó bem pequena (cerca de 24Kb num sistema com disco). A primeira hipótese ó 
interessante, pois deixa livre toda a memória RAM usada pelo interpretador BASIC. Méis, e se 
você tiver programas de extensão (aqueles ativados com a instrução CALL do BASIC) carre- 
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gados nessa memória, como fica a situação? Você vai concordar que a transferência de telas 
para esta memória irá "borrar” os programas que estiverem por lá. "Sendo assim, onde pode- 
mos arquivar as telas?" Eu tenho uma sugestão: arquivar as telas na própria memória de vídeo. 
Nós já vimos que no modo texto só temos duas tabelas: a tabela de nomes e a tabela de 
padrões. A tabela de nomes gasta 960 bytes no modo de 40 colunas e 1 920 bytes no modo 
de 80 colunas (aplicável só ao MSX 2); já a tabela de padrões gasta 2048 bytes em ambos os 
modelos. Também já sabemos que o MSX possui no mínimo 16Kb (128Kb no MSX 2) de 
memória VRAM. Fazendo as contas, temos cerca de 1 3Kb livres na VRAM para usar conforme 
desejarmos. Você também deve estar lembrado de que a tabela de nomes contém efetiva- 
mente um mapa do que aparece e de como aparece na tela. Sendo assim, o que nos interes- 
sa arquivar ó apenas a tabela de nomes que possui 960 bytes de comprimento no modo de 
40 colunas e 1920 bytes no modo de 80 colunas do MSX 2. Fazendo mais algumas contas, 
chegamos à conclusão de que podemos arquivar 12 telas no modo texto em 40 colunas e 6 
no modo em 80 colunas. Na verdade, por problemas de sincronismo só podemos arquivar 4 
telas no modo texto em 80 colunas do MSX 2, apesar deste modelo possuir 128Kb de VRAM. 
Como a maioria dos programas trabalha somente em 40 colunas por uma questão de compa- 
tibilidade, o limite de 12 telas já é bem aceitável. Examinando os comentários nas listagens- 
fonte, você vai observar que, além de armazenar/recuperar as telas, também 
salvamos/recuperamos a posição atual do cursor na tela. Vamos então às listagens dos pro- 
gramas. 

O PROGRAMA QUE ARQUIVA TELAS NA VRAM 

Listagem em assembly Z-80 do código-fonte do programa para arquivar telas na VRAM: 

;Prog rama-fonte para arquivar telas na VRAM. 

iCompilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

;GEN80 PROG6.BIN-PROG6.GEN 

;onde PROG6.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 


csry 


equ 

#f3dc 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 
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org 

#d000 

inicio 

ld 

a.(valtyp) 


cp 

#02 


ret 

nz 


ld 

a.(argusr) 


push 

af 


ld 

a, (versão) 


or 

a 


jr 

z, iniciol 


ld 

a.(linlen) 


cp 

41 


jr 

c, iniciol 


ld 

a,80 


ld 

hl, #2000 


ld 

de, 24*80+2 


jr 

inicio2 

iniciol 

ld 

a, 40 


ld 

hl, #1000 


ld 

de, 24*40+2 

inicio2 

ld 

(numcols).a 


ld 

(inivram).hl 


ld 

(tamanho), de 


ld 

a, (versão) 


or 

a 


jr 

z,inicio3 


ld 

a.(linlen) 


cp 

41 


jr 

c,inicio3 


ld 

6,4 


jr 

inicio4 

inicio3 

ld 

6,12 

inicio4 

pop 

af 


cp 

e 


ret 

nc 

gravatela 

di 



push 

af 


push 

bc 


push 

de 


push 

hl 


ld 

hl.(inivram) 


;verifica parâmetro 
;ó inteiro? 

;Não, volta para o BASIC 
;a-número da tela 
;salva número da tela 
;a- versão do MSX 
;ó igual a zero (MSX 1)? 

;Sim, vai para iniciol 
;o MSX2 está em 80 colunas? 

;Não, vai para iniciol 
;a-80 colunas 
;hl-início da VRAM livre 
;de-tamanho da tela+2 
rvai para inicio2 
;a-40 colunas 
;hl-início da VRAM livre 
;de-tamanho da tela+2 
;salva o núm. de colunas 
;salva end. inicial 
;salva tam. da tela 
;a-versãb do MSX 
;ó igual a zero (MSX 1)? 

;Sim, vai para inicio3 
;a=núm. de colunas da tela 
;núm. de cols. > 40 (80 cols.) 
;Não, vai para inicio3 
;Sim, e-núm. máx. de telas 
;em 80 colunas 
;vai para inicio4 
;núm. máx. de telas no MSX 1 
;e 2 em 40 col 
;recupera o núm. da tela 
;Se o núm. da tela recebido 
;for igual ou maior do que o 
permitido, volta. 


;desabilita as interrupções 
;salva todos os 
;registros 


;hl-end. inicial da VRAM 
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loopgrvl 

gravai 

loopgrv2 


or 

a 

jP 

z, gravai 

ld 

de,(tamanho) 

kJ 

b,a 

add 

hl.de 

djnz 

loopgrvl 

ld 

b,24 

ld 

de.(txtnam) 

push 

bc 

push 

hl 

ld 

a.(numcols) 

ld 

b.a 

ld 

hl.bufferlinha 

ex 

de, hl 

call 

setvdprd 

ex 

de, hl 

call 

lelinha 

pop 

hl 

push 

hl 

call 

setvdpwt 

ld 

a.(numcols) 

ld 

b,a 

ld 

hl.bufferlinha 

call 

esclinha 

ld 

a.(numcols) 

ld 

u 

ld 

h,#00 

add 

hl.de 

ex 

de, hl 

k) 

c.a 

ld 

b,#00 

pop 

hl 

add 

hl.bc 

pop 

bc 

djnz 

loopgrv2 

call 

setvdpwt 

ld 

a.(csry) 

out 

(#98), a 

ld 

a,(csry+#01 ) 

out 

(#98), a 

pop 

hl 

pop 

de 

pop 

bc 

pop 

af 


;núm. da tala igual a 0? 
;Sim, vai para gravai 
;Não, calcula o novo and. 
jinicial 


;b-24 linhas 

;de-end. da tab. da nomas 
;salva o contador 
;salva and. inicial 
;a-núm. da colunas 
;b-núm. da colunas 
;hl aponta para o buffer 
;troca hl por da. 

;hl-aponta para a VRAM 
prepara o VDP para leitura 
;troca hl por de. 

;hl«aponta para o buf. 

;lê a linha 

;recupera o and. para escrita 
;guarda na pilha 
prepara o VDP para escrita 
;a-núm. da colunas 
;b-núm. de colunas 
;hl-aponta para o buffer 
;escreve a linha lida 
;a-núm. de colunas 
;hl-núm. de colunas 

;hl-end. da próx. linha 
;de-end. da próx. linha 
;bc-núm. da colunas 

;recupera and. da escrita 
;hl-end. da escrita da próx. 
;linha 

;recupera o contador 
;repete para as demais linhas 
prepara o VDP para escrita 
;a-coord. y do cursor 
;salva a coord. na VRAM 
;a-coord. x do cursor 
;salva a coord. na VRAM 
;recupera os registros 
;salvos na pilha 



32 Guia do Programador MSX 
CAP.l 


ei 

;habilita as interrupções 

ret 

;retorna ao BASIC 


lelinha 





in 

a, (#98) 

;lê o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

;prepara a próxima leitura 


ret 

;retorna 

esclinha 





ld 

a.(hl) 

;lê o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 

;retorna 

setvdprd 





ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

éMSXI? 


V 

z, rdvraml 

Sim, vai para rdvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvraml 

ld 

a,l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99), a 



ret 



setvdpwt 





ld 

a, (versão) ;obtóm a versão do MSX 


or 

a 

ÓMSX1? 


jr 

z, wtvraml ;Sim, vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a ;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a,l ;informaao 


out 

(#99), a ;VDP o endereço na 


ld 

a,h 

VRAM onde o 


and 

#3f ;dado será 


or 

#40 ;gravado 


out 

(#99), a 
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ret 


numcols 

defb 

#00 

tamanho 

defw 

#00 

inivram 

defw 

#00 

bufferlinha 

defs 

80 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para arquivar telas na VRAM: 

10 FOR A%«4HD000 TO &HD137 
20 READ B$ 

30 POKE A% , VAL ( " tH"+B$) 

40 NEXT A % 

50 BSAVE "PROG6.BIN", 6HD000, 4HD137 

100 DATA 3A, 63 , F6, FE, 02, C0, 3A, F8, F7, F5 , 3A, 2D, 00, B7 ,28, 11 
110 DATA 3A, B0 , F3, FE, 29, 38, OA, 3E, 50,21, 00, 20, 11, 82, 07, 18 
120 DATA 08, 3E, 28, 21, 00,10, 11, C2 , 03, 32, E2 , DO, 22, E5, DO, ED 
130 DATA 53, E3, DO, 3A, 2D, 00, B7 ,28, OB, 3A, BO, F3, FE, 29, 38, 04 
140 DATA 1E, 04, 18, 02, 1E, OC, F1 , BB, DO, F3, F5, C5, D5, E5, 2A, E5 
150 DATA DO, B7 , CA, 5D, DO, ED, 5B, E3, DO, 47,19,10, FD, 06, 18, ED 
160 DATA 5B,B3,F3,C5,E5,3A,E2,D0, 47, 21, E7, DO, EB, CD, B4, DO 
170 DATA EB, CD, A6, DO, El , E5, CD, CA, DO, 3A, E2 , DO, 47,21, E7, DO 
180 DATA CD, AD, DO, 3A, E2, DO, 6F, 26, 00,19, EB, 4F, 06, 00, El, 09 
190 DATA Cl ,10, DO, CD, CA, DO, 3A, DC, F3, D3, 98, 3A, DD, F3, D3, 98 
200 DATA El , Dl, Cl , Fl, FB, C9, DB, 98, 77,23, 10, FA, C9, 7E, D3, 98 
210 DATA 23,10, FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E, D3 
220 DATA 99,7D,D3, 99, 7C,E6, 3F,D3, 99, C9, 3A,2D, 00, B7, 28, 07 
230 DATA AF, D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, F6, 40, D3 
240 DATA 99, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
260 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00,00,00,00,00,00,00,00 

O PROGRAMA QUE 

RECUPERA TELAS ARQUIVADAS NA VRAM 

Listagem em assembly Z-80 do código-fonte do programa para recuperar telas arquiva- 
das na VRAM: 

;Programa-fonte para recuperar telas arquivadas na VRAM. 
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;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG7.BIN-PROG7.GEN 

;onde PROG7.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#1663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 


csry 


equ 

#f3dc 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 



org 

#d200 


inicio 


ld 

a, (valtyp) 

;verif ica parâmetro 


cp 

#02 

;ó inteiro? 


ret 

nz 

;Não, volta para o BASIC 


ld 

a, (argusr) 

;a-número da tela 


push 

af 

;salva número da tela 


ld 

a, (versão) 

a-versão do MSX 


or 

a 

ó igual a zero (MSX 1 )? 


k 

z, iniciol 

Sim, vai para iniciol 


ld 

a,(linlen) 

o MSX2 está em 80 colunas? 


cp 

k 

41 

c, iniciol 

Não, vai para iniciol 


ld 

a, 80 

a-80 colunas 


ld 

hl,#2000 

hl-início da VRAM livre 


ld 

de, 24*80+2 

em 80 col. 

de-tamanho da tela+2 


k 

inicio2 

em 80 col. 
vai para inick>2 

iniciol 

ld 

a, 40 

a«40 colunas 


ld 

hl,#1000 

hl-início da VRAM livre 


ld 

de,24*40+2 

em 40 col. 

de-tamanho da tela+2 

inicio2 

ld 

(numcols).a 

em 40 col. 

salva o núm. de colunas 



inicio3 

inicio4 

recuptela 


looprcpl 

recupi 

k>oprcp2 


ld 

(inivram).hl 

ld 

(tamanho), de 

ld 

a.(versao) 

or 

a 

jr 

z,inicio3 

ld 

a.(linlen) 

cp 

41 

jr 

c,inido3 

ld 

0,4 

V 

inicio4 

ld 

0.12 

pop 

af 

cp 

e 

ret 

nc 


di 

push 

af 

push 

bc 

push 

de 

push 

hl 

ld 

hl.(inivram) 

or 

a 

jP 

z, recupl 

ld 

de, (tamanho) 

ld 

b.a 

add 

hl, de 

djnz 

looprcpl 

ld 

b,24 

ld 

de.(txtnam) 

push 

bc 

push 

hl 

call 

setvdprd 

ld 

a.(numcols) 

ld 

b.a 

ld 

hl.bufferlinha 

call 

lelinha 

ex 

de, hl 

call 

setvdpwt 

ex 

de, hl 

ld 

hl.bufferlinha 

ld 

a.(numcols) 


;satva end. inicial 
;salva tam. da tela 
;a-versão do MSX 
;é igual a zero (MSX 1 )? 
;Sim, vai para inicio3 
;a-núm. de colunas da tela 
;núm. de cols.40 (80 cols.)? 
;Nao, vai para inick>3 
;e-núm. máx. de telas 
;em 80 cols. 

;vai para inicio4 
;núm. máx. de telas no 
;MSX 1 e 2: 40 col 
;recupera o núm. da tela 
passado pelo BASIC. 

;Se o núm. da tela recebido 
;for igual ou maior do que o 
;MAX. permitido, volta. 

;desabilita as interrupções 
;salva todos os 
;registros 


;hl-end. inicial da vram 
;núm. da tela igual a 0? 
;Sim, vai para recupl 
;Não, calcula o novo end. 
;inicial 


;b«24 linhas 

;de-end. da tab. de nomes 
;salva o contador 
;salva end. inicial 
prepara o VDP para leitura 
;a-núm. de colunas 
;b-núm. de colunas 
;hl aponta para o buffer 
;lê uma linha da tela gravada 
;troca hl por de. 

;hl-tab. de nomes 
prepara o VDP para escrita 
;troca hl por de. 

;de-tab. de nomes 
;hl aponta para o buffer 
;a-núm. de colunas 
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ld 

b,a 

b«núm. de colunas 


call 

esclinha 

escreve a linha na tela 


ld 

a.(numcols) 

a-núm. de colunas 


ld 

l,a 

hl-núm. de colunas 


ld 

h,#00 



add 

hl.de 

hl-end. da próx. linha 


ex 

de, hl 

de«end. da próx. linha 


ld 

c.a 

bc-núm. de colunas 


ld 

b,#00 



pop 

hl 

recupera end. de escrita 


add 

hl.bc 

hl-end. de leitura da próx. 




linha 


pop 

bc 

recupera o contador 


djnz 

looprcp2 

repete para as demais linhas 


call 

setvdprd 

prepara o VDP para leitura 


in 

a,(#98) 

lê a coord. y 


ld 

(csry).a 

salva a coord. y do cursor 


in 

a, (#98) 

lê a coord. x 


kJ 

(csry+#01),a 

salva a coord. x do cursor 


pop 

hl 

recupera os registros 


pop 

de 

salvos na pilha 


pop 

bc 



pop 

af 



ei 

;habilita as interrupções 


ret 

;retorna ao BASIC 

lelinha 





in 

a,(#98) ;lê o carac. da VRAM 


ld 

(hl).a 

salva-o no buffer 


inc 

hl ;incrementa o ponteiro 


djnz 

lelinha 

prepara a próxima leitura 


ret 

;retorna 

esclinha 





ld 

a, (hl) 

lê o carac. do buffer 


out 

(#98),a 

escreve-o na VRAM 


inc 

hl 

incrementa o ponteiro 


djnz 

esclinha prepara a próxima escrita 


ret 

;retorna 

setvdprd 





ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

é MSX1? 


jr 

z.rdvraml 

Sim, vai para rdvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99),a 

do MSX2 


ld 

a,#8e 
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out 

(#99), a 


rdvraml 

ld 

a,l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#31 

lido o dado 


out 

(#99), a 



ret 



setvdpwt 

ld 

a, (versão) 

obtóm a versão do MSX 


or 

a 

óMSXI? 


|r 

z, wtvraml 

Sim, vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde o 


and 

#3f 

dado será 


or 

#40 

gravado 


out 

(#99), a 



ret 



numcols 


defb #00 


tamanho 


defw #00 


inivram 


defw #00 


bufferlinha 


defs 80 


fim 


equ $ 



Listagem em linhas DATA do código-objeto do programa para recuperar telas arquiva 
das na VRAM: 

10 rQR A%-tHD200 TO &HD335 
20 READ B$ 

30 POKE À% , VAL ( " tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG7 .BIN", &HD200, &HD335 

100 DATA 3A, 63, F6, FE, 02, C0, 3A, F8, F7 , F5, 3A, 2D, 00, B7 , 28, 11 
110 DATA 3A,B0, F3, FE, 29, 38, 0A, 3E, 50,21, 00,20, 11, 82, 07, 18 
120 DATA 08 , 3E, 28 , 21, 00, 10, 11 , C2, 03, 32, E0 , D2 , 22 , E3, D2, ED 
130 DATA 53, El, D2 , 3A, 2D , 00, B7 ,28, 0B, 3A, B0, F3, FE, 2 9, 38, 04 
140 DATA 1E, 04, 18, 02, 1E, 0C, F1 , BB, D0, F3, F5, C5, D5, E5, 2A, E3 
150 DATA D2 , B7, CA, 5D, D2 , ED, 5B, El, D2, 47,19,10, FD, 06,18, ED 
160 DATA 5B, B3, F3, C5, E5, CD, B2 , D2, 3A, E0, D2 , 47, 21 , E5, D2, CD 
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170 DATA A4,D2,EB,CD,C8,D2,EB,21,E5,D2,3A,E0,D2,47,CD,AB 
180 DATA D2 , 3A, E0, D2, 6F, 26, 00, 19, EB, 4F, 06, 00, El ,09, Cl, 10 
190 DATA D2,CD,B2,D2,DB,98,32,DC,F3,DB, 98,32, DD, F3, El, Dl 
200 DATA Cl , F1 , FB, C9, DB, 98,77,23, 10, FA, C9, 7E, D3, 98, 23, 10 
210 DATA FA, C9, 3A, 2D, 00 , B7 ,28, 07, AF, D3, 99, 3E, 8E , D3 , 99, 7D 
220 DATA D3, 99, 7C, E6, 3F, D3, 99,C9,3A,2D, 00, B7, 28, 07, AF, D3 
230 DATA 99 , 3E, 8E, D3, 99, 7D, D3, 99, 7C, 26, 3F , F6 , 40, D3, 99, C9 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
260 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00,00,00,00,00,00 


Listagem do programa de teste: 

100BLOADTROG6.BIN- 

110BLOAD-PROG7.BIN- 

120 DEFUSR0-&HD000:REM Rotina para arquivar telas 
130 DEFUSR1«&HD200:REM Rotina para recuperar telas 
140 A%-PEEK(&HF3B0):IF A%41 THEN MX%-3 ELSE MX%-1 1 
150 LG%*A% 

160 FOR A%«0 TO MX% 

170 CLS:LOCATE 0,2:PRINrTela número:";A% 

180 LOCATE0.10 

190 FOR B%-1 TO LG%:PRINT HEX$(A%);:NEXT B% 

200 Z%«USR0(A%) 

210 FOR B%-1 TO 500:NEXT B% 

220 NEXT A% 

230 FOR A%«0 TO MX% 

240 Z%«USR1 (A%) 

250 FOR B%-1 TO 500:NEXT B% 

260 NEXT A% 


Observe na listagem do programa de teste que a primeira tela recebe o número 0, e não 
1 . Acompanhe o programa e os comentários nas listagens-fonte para tirar qualquer dúvida so- 
bre o funcionamento destas duas rotinas. 

JANELAS NA TELA DE TEXTO 

Para dar aquele toque profissional aos programas, só está faltando uma rotina: aquela que 
abre janelas. Quando adquiri o meu PC, fiquei fascinado com o nível dos programas, já que 
todos eles usavam a técnica de janelas e menus drop-down. Exatamente nessa época, come- 
cei a desenvolver o MSX-DOS Tools, que ganhou o sufixo de Nacional por ter aparecido um 
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conjunto de programas japoneses com exatamente o mesmo título. Uma etapa importante do 
meu MSX-DOS Tools foi gasta no desenvolvimento das rotinas com acesso direto às portas 
do disk drive e de uma rotina que simulasse com perfeição o efeito das janelas. O resultado 
dessa rotina apareceu após um dia de trabalho: eu não queria uma rotina que apenas dese- 
nhasse uma janela. O que eu queria era que a janela fosse se formando aos poucos, dando 
um efeito de explosão. A rotina zoom cria o efeito da explosão, desenhando e apagando ja- 
nelas progressivamente a partir do ponto central da janela final. A rotina Janela ó a responsável 
pelo desenho das janelas propriamente ditas. A rotina poslt ó a responsável pelo posiciona- 
mento do cursor nas coordenadas passadas por hl. Para acessar as rotinas zoom e janela, o 
registro h deverá conter a coordenada x »; o registro I a coordenada y»; o registro d a coorde- 
nada jr^eo registro e a coordenada y*. As coordenadas xi,yi correspondem ao canto supe- 
rior esquerdo da janela e as coordenadas it 2 ,y 2 ao canto inferior direito. Na rotina poslt, o par 
hl deverá conter a posição x (em h) e a posição y (em I). Todas as rotinas estão muito bem co- 
mentadas, de modo que acredito não ser difícil para você entender o funcionamento. 


O PROGRAMA QUE 

IMPLEMENTA JANELAS NA TELA DE TEXTO 

Listagem em assembly Z-80 do código-fonte do programa para abrir janelas: 

;Programa-fonte para desenhar janelas explodindo. 

;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG8.BIN-PROG8.GEN 

;onde PROG8.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 


csry 


equ 

#13dc 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


p cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 
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inicio 


iniciol 


di 

ld a, (versão) 

or a 

jr z, iniciol 

ld a,(linlen) 

cp 41 

ld a, 40 

jr c, iniciol 

ld a, 80 

ld (numcols).a 

ld hl, #0000 

ld de,#0000 

call zoom 

ei 
ret 


;desabilita as interrupções 
;a-versão do MSX 
;ó igual a zero (MSX 1 )? 

;se for, vai para iniciol 

;o MSX2 está em 80 colunas? 

» 

;a-40 colunas 

;Não, vai para iniciol 

;a-80 colunas 

;salva o núm. de colunas 

;h«x1,l«y1 

;d-x2,e-y2 

;chama a rot. da janela 
;habilita as interrupções 


A rotina zoom cria o efeito de explosão da janela 


zoom 


looptest 


xor 

a 

•,zera o acumulador 

ld 

(bufcol).a 

;zera o buffer da coluna 

ld 

(buflin).a 

;zera o buffer da linha 

ld 

(cororl).hl 

;salva as coordenadas xl ,y1 

ld 

(coror2),de 

;salva as coordenadas x2,y2 

ld 

a,h 

;carrega a com h (xl) 

add 

a, d 

;soma com d (x2) e divide 

srl 

a 

;por dois para achar Xmedio 

dec 

a 

;decrementa Xmedio 

ld 

h,a 

;carrega h (xl) com Xmedio 

inc 

a 

;incrementa o ponto médio 
;para que 

inc 

a 

;x2-x1+1, onde xl -Xmedio- 1 

ld 

d, a 

;carrega d com x2 

ld 

a.l 

;a«y1 

add 

a.e 

;soma com e (y2) e divide 

srl 

a 

;por dois para achar Ymedio 

dec 

a 

;decrementa Ymedio 

ld 

l.a 

;carrega 1 (yl) com Ymedio 

inc 

a 

;incrementa o ponto médio 
;para que 

inc 

a 

;y2-y 1+1, onde yl-Ymedio-1 

ld 

e.a 

;carrega e com y2 

call 

janela 

;desenha a primeira janela 

call 

coluna 

verifica em rei. à coluna- 
;limite 

call 

linha 

.verifica em rei. à linha- 
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;limite 



call 

janela 

;desenha a janela 


call 

espjanela 

;retardo para tornar o efeito 




Risível 


call 

teste2 

verifica se já chegou à 




ijanela final 


jr 

nz.looptest 

;Não, continua com a explos 


ld 

hl.(cororl) 

limprime a janela final 


ld 

de,(coror2) 



call 

janela 



ret 


;retorna 

coluna 

ld 

a,(coror1+#01) 

;a-coord. xl original 


cp 

h 

;já foi atingida? 


jr 

nc, fimcol 

;Sim, vai para fimcol 


dec 

h 

;Não, xl-xl-1 


inc 

d 

;x2«x2+1 


ret 


;retorna 

fimcol ld 

a, #01 


lindica que a coluna-limite 


ld 

(bufcol),a 

,-foi atingida 


ret 


;retorna 

linha ld 

a.(cororl) 

;a-coord. yl original 


cp 

1 

ijá foi atingida? 


jr 

nc, fimlin 

;Sim, vai para fimlin 


dec 

1 

;Não, yl-yl-1 


inc 

e 

iy2«y2+1 


ret 


iretorna 

fimlin ld 

a,#01 


lindica que a linha-limite 


ld 

(buflin).a 

;foi atingida 


ret 


iretorna 

espjanela 

push 

af 

;salva os registros 


push 

hl 

;afetados 


ld 

hl, #1000 

;altere este valor para mudar 

espjanelal 

dec 

hl 

;o retardo. Decrementa hl 


ld 

a.h 

iverifica se chegou 


or 

1 

;ao fim 


jr 

nz, espjanelal 

;Não, volta para espjanelal 


pop 

hl 

irecupera os registros 


pop 

af 

» 


ret 


;e retorna 

teste2 

ld 

a,(bufcol) 

verifica se a coluna- 


cp 

#01 

llimite foi atingida 


jr 

z, contes 

;Sim, vai para contes 


ret 


;Não, retoma 
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contes ld a,(buflin) ;verifica se a linha- 

cp #01 ;limite foi atingida 

ret ;retorna. Flag Z será o 

;indicador. 


;a rotina janela é a responsável pelo desenho da própria janela no vídeo 


janela 


janell 


janel2 


push bc 

push de 

push hl 

call posit 

ld a, d 

sub h 

dec a 

ld b,a 

push bc 

ld a, #18 

out (#98), a 

ex (sp).hl 

ex (sp),hl 

ld a, #17 

out (#98), a 

ex (sp),hl 

ex (sp),hl 

djnz janell 

ld a, #19 

out (#98), a 

pop bc 

ld l.e 

call posit 

ld a,#1a 

out (#98), a 

ex (sp).hl 

ex (sp),hl 

ld a, #17 

out (#98), a 

ex (sp),hl 

ex (sp),hl 

djnz janel2 

ld a,#1b 


;salva todos os registros 
;atterados pela rotina 

posiciona o cursor em xl ,y1 

;a-x2 

;a-x2-x1 

;a-núm. de pos. da linha do 
;topo 

;b-núm. de pos. da linha do 
;topo 

;salva núm. de pos. da linha do 
;topo 

;a-carac. do canto sup. esq. 
;escreve o caractere 
;demora para sincronização 

;a«traço horizontal 
;escreve a linha superior 
;demora para sincronização 

;a-carac. do canto sup. dir. 

;escreve o caractere 

; recupera núm. de pos. da linha do 

Itopo 

;i-y2 

;coloca o cursor em xl ,y2 
;a-caractere do canto inf. 
;esquerdo 

;escreve o caractere 
;demora para sincronização 

;a-traço horizontal 
;escreve a linha inferior 
;demora para sincronização 


;a»caractere do canto inf. 
;direito 
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janel3 


janel4 


posit 


out 

(#98), a 

;escreve o caractere 

pop 

hl 

;recuperax1,y1 

pop 

de 

;recupera x2,y2 

push 

de 

;salva x2,y2 

push 

hl 

;salvax1,y1 

ld 

a.e 

;a-y2 

sub 

1 

;a-y2-y1 

dec 

a 

;a-núm. de pos. verticais 

ld 

b.a 

;b-núm. de pos. verticais 

kJ 

a, d 

a-x2 

sub 

h 

a-x2-x1 

dec 

a 

a-núm. de pos. horizontais 

ld 

c.a 

c-núm. de pos. horizontais 

inc 

1 

yl-yl+1 

call 

posit 

posiciona o cursor 

ld 

a.# 16 

a-traço vertical 

out 

(#98), a 

escreve o caractere 

push 

bc 

salva núm. de pos. verticais 

ld 

b,c 

b-núm. de pos. horizontais 

ld 

a, #20 

a-caractere espaço em branco 

out 

(#98), a 

escreve o carac. para limpar 

ex 

(sp).hl 

demora para sincronização 

ex 

(sp).hl 


djnz 

janel4 

a janela 

ld 

a, #16 

a-traço vertical 

out 

(#98), a 

escreve o caractere 

inc 

1 

yl-yl+1 

pop 

bc 

recupera núm. de pos. 



verticais 

djnz 

janel3 

repete ató acabar as linhas 


verticais 

pop 

hl 


pop 

de 


pop 

bc 


ret 




push 

af 

;salva todos os 

push 

bc 

;registros afetados 

push 

de 

por esta rotina 

push 

hl 

» 

ex 

de, hl 

,1roca o conteúdo de hl pelo 
;de de 

ld 

hl, #0000 

;zera hl 

ld 

a,e 

;a-linha 

or 

a 

;ó igual a zero? 

jr 

z,posrt2 

;Sim, vai para posit2 
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push 

de 

Não. salva as coordenadas 


ld 

b,a 

b=núm. da linha 


ld 

a.(numcols) 

a-núm. de colunas 


ld 

e,a 

e«núm. de colunas 


ld 

d, #00 

de-núm. de colunas 

positl 

add 

hl.de 

hl»hl+ núm. de colunas 


djnz 

positl 



pop 

de 

recupera as coordenadas 

posit2 

ld 

a, d 

a-coluna 


or 

a 

é igual a zero? 


jr 

z,posit3 

Sim. vai para posit3 


ld 

e,a 

Não, e-coluna 


ld 

d, #00 

de-coluna 


add 

hl.de 

hl aponta para o end. da 




VRAM 




correspondente a xl ,y1 

posit3 

call 

setvdpwt 

prepara o VDP para escrita 


pop 

hl 

recupera os registros 


pop 

de 



pop 

bc 



pop 

af 



ret 


e retorna 


setvdpwt 






ld 

a, (versão) 

obtém a versão do MSX 


or 

a 


ÓMSX1? 


K 

z, wtvraml 

Sim, vai para wtvraml 


xor 

a 


Não, inicializa o VDP 


out 

(#99), a 


do MSX2 


ld 

a,#8e 




out 

(#99), a 



wtvraml 

ld 

a.l 


informa ao 


out 

(#99), a 


VDP o endereço na 


kJ 

a.h 


VRAM onde o 


and 

#3f 


dado será 


or 

#40 


gravado 


out 

(#99), a 




ret 




numcols 


defb 

#00 


bufcol 


defb 

#00 


buflin 


defb 

#00 


cororl 


defw 

#0000 


coror2 


defw 

#0000 


fim 


equ 

$ 




OVÍDEO 45 


Listagem em linhas DATA do código-objeto do programa para abrir Janelas: 

10 FOR A%«íHD000 TO &HD13D 
20 READ B$ 

30 POKE A% , VAL (” íH"+B$) 

40 NKXT A% 

50 BSAVE "PROG8 .BIN", SHD000, 6HD13D 


100 DATA F3, 3A, 2D, 00, B7, 28, 0B, 
110 DATA 3E, 50, 32, 36, Dl, 21, 00, 
120 DATA AF, 32, 37 , Dl, 32 , 38, Dl , 
130 DATA CB, 3F, 3D, 67, 3C, 3C, 57, 
140 DATA CD, 98, D0, CD, 5F, D0, CD, 
150 DATA 8A, D0, 20, EF, 2A, 39, Dl, 
160 DATA 3A, Dl, BC, 30, 03,25, 14, 
170 DATA D1,BD, 30, 03, 2D, 1C,C9, 
180 DATA 00,10, 2B,7C,B5, 20, FB, 
190 DATA 01 , C9, 3A, 38, Dl , FE, 01 , 
200 DATA 3D, 47, C5, 3E, 18, D3, 98, 
210 DATA F8,3E, 19, D3, 98, Cl, 6B, 
220 DATA 3E, 17, D3, 98, E3 , E3, 10, 
230 DATA 7B, 95, 3D, 47, 7A, 94, 3D, 
240 DATA C5, 41, 3E,20,D3, 98, E3, 
250 DATA 10, E7, El , Dl, Cl , C9, F5, 
260 DATA 28, 0C, D5, 47, 3A, 36, Dl, 
270 DATA 28, 04, 5F, 16, 00, 19, CD, 
280 DATA 00, B7, 28, 07,AF,D3, 99, 
290 DATA 3F, F6, 40, D3, 99, C9, 00, 


3A, B0 , F3 , FE ,29, 3E ,28,38,02 
00, 11, 00, 00, CD, 20, D0, FB, C9 
22, 39, Dl, ED, 53, 3B,D1, 7C, 82 
7D, 83, CB, 3F, 3D, 6F, 3C, 3C, 5F 
6E, D0, CD, 98, DO, CD, 7D, DO, CD 
ED, 5B, 3B, Dl, CD, 98,D0,C9, 3A 
C9, 3E, 01 , 32, 37, Dl , C9, 3A, 39 
3E, 01, 32, 38, Dl, C9,F5, E5, 21 
E1,F1,C9, 3A, 37, Dl, FE, 01, 28 
C9,C5,D5,E5,CD,F6,D0, 7A, 94 
E3,E3,3E,17,D3, 98,E3,E3, 10 
CD, F6, DO, 3E, IA, D3, 98,E3,E3 
F8, 3E,1B,D3, 98, El, Dl, D5, E5 
4F, 2C, CD, F6, DO, 3E, 16, D3, 98 
E3, 10, F8, 3E, 16, D3, 98, 2C, Cl 
C5 , D5 , E5 , EB ,21, 00,00, 7B,B7 
5F, 16,00,19,10, FD, Dl, 7A, B7 
1E, Dl , El, Dl , Cl, F1 , C9, 3A, 2D 
3E, 8E,D3, 99, 7D, D3, 99, 7C,E6 
00 , 00 , 00 , 00 , 00 , 00,00 


Listagem do programa de teste: 

10BLOAD-PROG8.BIN" 

20 CLS 

30 XI -0:Y1 -0:X2«39:Y2-20 

40 POKE&HDOI 6,Y1 :POKE&HD017,X1 :POKE&HD01 9,Y2:POKE&HD01 A ,X2 
50 DEFUSR-&HD000:Z»USR(0) 

60 IFINKEY$-""THEN60 


COMENTÁRIOS SOBRE 
O PROGRAMA QUE IMPLEMENTA JANELAS 

Repare que na linha 40 da listagem do programa de teste informamos à rotina da janela as co- 
ordenadas da janela desejada. Como você poderá perceber através da listagem do código- 
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fonte, não existe nenhum teste para as coordenadas da janela, portanto, seja cauteloso e use- 
as como o faria no BASIC (x entre 0 e 39 em 40 colunas, entre 0 e 79 em 80 colunas e y en- 
tre 0 e 23). 

NOVOS MÉTODOS PARA LIMPAR O VÍDEO 

Até aqui, você já tem rotinas para inversão de vídeo, para arquivo/recuperação de telas, para 
criação de janelas e para alguns efeitos especiais (rotações de telas). Você já tem tudo para 
implementar menus nos seus programas, mas, que tal continuarmos com mais alguns efeitos 
especiais? O que você acha de usar as rotinas de rotação para limpar a tela, ao invés de rotá- 
la? Imagine o seu micro,para limpar a tela^mpurrando os caracteres para a esquerda, para a 
direita, para cima ou, ainda, para baixo. Seria um efeito interessante, não? Vamos então à 
apresentação das rotinas, começando por aquela que LIMPA a tela deslocando-a para a es- 
querda. 


O PROGRAMA PARA LIMPAR 

O VÍDEO DESLOCANDO A TELA PARA A ESQUERDA 

Listagem em assembly Z-80 do código-fonte do programa para LIMPAR a tela deslocan- 
do-a para a esquerda: 

programa para limpar a tela - esquerda. 

;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG9.BIN-PROG9.GEN 

;onde PROG9.GEN ó o nome do arquivo-texto com esta listagem 


versão 


equ 

#002d 


linlen 


equ 

#í3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 
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inicio 





ld 

a,(valtyp) 

;verifica parâmetro 


cp 

#02 

;é inteiro? 


ret 

nz 

;Não, volta para o BASIC 


ld 

a.(argusr) 

;a-número de rotações 


push 

af 

;salva número de rotações 


ld 

a, (versão) 

;a-versão do MSX 


or 

a 

;ó igual a zero (MSX 1)? 


jr 

z, iniciol 

Sim, vai para iniciol 


ld 

a,(linlen) 

o MSX 2 está em 80 colunas' 


cp 

41 



jr 

c, iniciol 

Não, pula para iniciol 


ld 

a, 80 

Sim, a-80 colunas 


jr 

inicio2 

pula para inick>2 por ser 




,MSX 2 

iniciol 

ld 

a, 40 

a-40 colunas 

inicio2 

ld 

(numcol),a 

coloca o núm. de colunas em 




numcol 


pop 

af 

recupera o núm. de rotações 


di 


desabilita as interrupções 


ld 

b,a 

b-número de rotações 

loopl 

push 

bc 

salva contador externo 


ld 

hl.(txtnam) 

hl-end. tabela de nomes 


ld 

a.(numcol) 

a-núm. de colunas 


ld 

e,a 

de-núm. de colunas 


ld 

d, #00 



ld 

b,24 

b-24 linhas na tela 

loop2 

push 

bc 

salva contador intermediário 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a.(numcol) 

a-núm. de colunas 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha 

hl aponta para o buffer 


id 

b,a ;b-núm. de colunas 


call 

lelinha ;lè uma linha 


ld 

a.(numcol) 

a-núm. de colunas 


ld 

hl.bufferlinha ;hl aponta para o buffer 


ld 

e.a ;de-núm. de colunas 


ld 

d, #00 



ld 

a, #20 ;a-carac. espaço em branco 


add 

hl.de ;hl«aponta para o fim da 



;linha+1 


ld 

(hl), a ;coloca um espaço na últ. 



posição 


pop 

hl ;recupera hl 


pop 

de ;recupera de 


call 

setvdpwt prepara o VDP para escrita 
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push de ;salvade 

push hl ;salva hl 

ld hl,bufferlinha+1 ;hl aponta para o buffer-»- 1 


ld 

a.(numcol) 

ld 

b.a 

call 

esclinha 

pop 

hl 

pop 

de 

add 

hl.de 

pop 

bc 

djnz 

loop2 

pop 

bc 

djnz 

bopl 

ei 


ret 



lelinha 


in 

a, (#98) 


ld 

(hl), a 


inc 

hl 


djnz 

ret 

lelinha 

esclinha 


ld 

a, (hl) 


out 

(#98), a 


inc 

hl 


djnz 

ret 

esclinha 


setvdprd 

ld 

a, (versão) 


or 

a 


jr 

z, rdvraml 


xor 

a 


out 

(#99), a 


ld 

a,#8e 


out 

(#99), a 

rdvraml 

ld 

a,l 


out 

(#99), a 


ld 

a.h 


and 

#3f 


out 

(#99), a 


ret 



;a-núm. de colunas 
;b-núm. de colunas 
;envia a linha já rotada 
;recupera hl 
;recupera de 

;hl aponta para a próx. linha 
;recupera bc 

jrepete para as demais linhas 
;recupera bc 

;repete até terminar todas 
;as rotações 
;habilita as interrupções 
;retorna ao BASIC 


;lê o carac. da VRAM 
;salva-o no buffer 
;incrementa o ponteiro 
prepara a próxima leitura 
;retorna 


;lè o carac. do buffer 
;escreve-o na VRAM 
;incrementa o ponteiro 
prepara a próxima escrita 
;retorna 


obtém a versão do MSX 
ÓMSX1? 

Sim, vai para rdvraml 
Não, inicializa o VDP 
do MSX2 


;informa ao 
;VDP o endereço na 
;VRAM onde será 
;lido o dado 
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setvdpwt 



ld 

a, (versão) 

;obtóm a versão do MSX 


or 

a 

;ó MSX1 ? 


Jr 

z, wtvraml 

;Sim, vai para wtvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a,l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


k) 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

9 


ret 



bufferlinha 


defs 81 


numcol 


defb #00 


fim 


equ $ 



Listagem em linhas DATA do código-objeto do programa para LIMPAR a tela deslocan- 
do-a para a esquerda: 

10 TOR A%=íHD000 TO &HD0F6 
20 R£AD B$ 

30 POKE A% , VAL (" 6H"+B$) 

40 NEXT A% 

50 BSAVE "PROG9 . BIN" , &HD000 , &HD0F6 

100 DATA 3A, 63, F6, FE, 02 , C0 f 3A, F8, F7 , F5, 3A, 2D, 00 , B7, 28, 0B 
110 DATA 3A, B0, F3, FE, 29, 38, 04 , 3E, 50, 18, 02 , 3E, 28,32, F5, D0 
120 DATA F1,F3,47,C5,2A,B3,F3,3A,F5,D0,5F,16,00,06,18,C5 
130 DATA CD, 76, DO, 3A, F5, DO, D5, E5, 21 , A4, DO, 47, CD, 68, DO, 3A 
140 DATA F5, DO, 21 , A4, DO, 5F, 16,00, 3E, 20, 19, 77, Kl , Dl, CD, 8C 
150 DATA DO, D5, E5, 21, A5, DO, 3A, F5, DO, 47, CD, 6F, DO, El, Dl, 19 
160 DATA Cl ,10, CC, Cl, 10, BD, FB, C9, DB, 98, 77,23, 10, FA, C9, 7E 
170 DATA D3, 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E 
180 DATA 8!,D3,99,7D,D3,99,7C,I6,3F,D3,99,C9,3A,2D,00,B7 
190 DATA 28, 07, AF , D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, F6 
200 DATA 40, D3, 99, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
210 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
220 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
230 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00 
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O PROGRAMA PARA LIMPAR 
O VÍDEO DESLOCANDO A TELA PARA A DIREITA 

Listagem em assembly Z-80 do código-fonte do programa para limpar a tela deslocan- 
do-a para a direita: 


programa para limpar a tela - direita 

Compilar com o programa GEN80.COM usando a seguinte 

sintaxe: 

GEN80 PROGIO.BIN-PROGIO.GEN 

onde PROGIO.GEN é o nome do arquivo-texto com esta 
listagem 


versão 

linlen 

txtnam 

valtyp 

argusr 

txtcgp 


inicio 


iniciol 



equ 

#002d 



equ 

#f3b0 



equ 

#f3b3 



equ 

#f663 



equ 

#f7f8 



equ 

#f3b7 


defb 

#fe 


;simula em CP/M 

defw 

inicio 


;o cabecalho de 

defw 

fim 


;um arquivo 

defw 

inicio 


;.BIN 


org 

#d000 


kJ 

a, (valtyp) 

verifica parâmetro 

cp 

#02 

;é inteiro? 

ret 

nz 

;Não, volta para o BASIC 

ld 

a, (argusr) 

;a-número de rotações 

push 

af 

;salva número de rotações 

ld 

a,(versao) 

;a-versão do MSX 

or 

a 

;é igual a zero (MSX 1)? 

jr 

z, iniciol 

;Sim, vai para iniciol 

ld 

a, (linlen) 

;o MSX 2 está em 80 colunas? 

cp 

41 


jr 

c, iniciol 

;Não, pula para iniciol 

ld 

a, 80 

;Sim p a«80 colunas 

jr 

inicio2 

;pula para inicio2 por ser 
;MSX 2 

ld 

a, 40 

;a=40 colunas 



OVÍDEO 51 


inicio2 


loopl 


loop2 


ld 

(numcol), a 

pop 

af 

di 


ld 

b,a 

push 

bc 

ld 

hl.(txtnam) 

ld 

a, (numcol) 

ld 

e,a 

ld 

d, #00 

ld 

b,24 

push 

bc 

call 

setvdprd 

ld 

a, (numcol) 

push 

de 

push 

hl 

ld 

hl.bufferlinha+1 

ld 

b,a 

call 

lelinha 

ld 

a, (numcol) 

ld 

hl.bufferlinha 

ld 

e,a 

ld 

d, #00 

add 

hl.de 

ld 

a, #20 

ld 

hl.bufferlinha 

ld 

(hl), a 

pop 

hl 

pop 

de 

call 

setvdpwt 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

a, (numcol) 

ld 

b.a 

call 

esclinha 

pop 

hl 

pop 

de 

add 

hl.de 

pop 

bc 

djnz 

Ioop2 

pop 

bc 

djnz 

loopl 

ei 


ret 



coloca o núm. de colunas em 
numcol 

recupera o núm. de rotações 
desabilita as interrupções 
b-número de rotações 
salva contador externo 
hl-end. tabela de nomes 
a-núm. de colunas 
de-núm. de colunas 

b=24 linhas na tela 
salva contador intermediário 
prepara o VDP para leitura 
a«núm. de colunas 
salva de 
salva hl 

fil aponta para o buffer+1 
b-núm. de colunas 
lê uma linha 
a=núm. de colunas 
^1 aponta para o buffer 
de=núm. de colunas 

il aponta para o últ. carac. 

a=carac. espaço em branco 

il aponta para o buffer 

coloca o espaço na primeira 

posição 

recupera hl 

recupera de 

prepara o VDP para escrita 
salva de 
salva hl 

hl aponta para o buffer 
a-núm. de colunas 
b-núm. de colunas 
envia a linha já rotada 
recupera hl 
recupera de 

hl aponta para a próx. linha 
recupera bc 

repete para as demais linhas 
ecupera bc 

epete até terminar todas 
as rotações 
habilita as interrupções 
etorna ao BASIC 
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lelinha 

in 

a,(#98) 

;lê o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

prepara a próxima leitura 


ret 


;retorna 

esclinha 

ld 

a.(hl) 

;lê o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


;retorna 


setvdprd 

ld 

a, (versão) 

pbtém a versão do MSX 


or 

a 

;é MSX1? 


jr 

z, rdvraml 

;Sim, vai para rdvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvraml 

ld 

a,l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99), a 



ret 



setvdpwt 

ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

ÓMSX1? 


jr 

z, wtvraml 

Sim, vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l jinforma ao 


out 

(#99),a ;VDP o endereço na 


ld 

a.h 

VRAM onde o 


and 

#3f ;dado será 


or 

#40 ;gravado 


out 

(#99),a 



ret 
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bufferlinha 

defs 

81 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para LIMPAR a tela deslocan- 
do-a para a direita: 


10 FOR A%=4HD000 TO SHD0F9 
20 READ B$ 

30 POKE A% , VAL (" tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG10.BIN", 4HD000, SHD0F9 

100 DATA 3A, 63, F6, FE, 02, C0, 3A, F8, F7, F5, 3A, 2D, 00, B7, 28, 0B 
110 DATA 3A, B0, F3 , FE, 29, 38, 04 , 3E, 50, 18, 02 , 3E, 28,32, F8, D0 
120 DATA F1 , F3, 47 , C5, 2A, B3, F3 , 3A, F8 , D0, 5F, 16, 00, 06, 18, C5 
130 DATA CD, 79, D0, 3A, F8, DO, D5, E5, 21, A8, DO, 47, CD, 6B, DO, 3A 
140 DATA F8 , DO, 21 , A7, DO, 5F, 16 , 00, 19, 3E, 20,21, A7, DO, 77 , El 
150 DATA Dl, CD, 8F, DO, D5, E5, 21 , A7, DO, 3A, F8, DO, 47, CD, 72, DO 
160 DATA El ,D1, 19, Cl, 10, C9, Cl, 10, BA, FB, C9 , DB, 98,77,23,10 
170 DATA FA,C9,7E,D3, 98, 23,10, FA,C9,3A,2D, 00, B7, 28,07, AF 
180 DATA D3,99 f 3E,8E,D3,99,7D,D3,99,7C,E6,3F,D3,99,C9,3A 
190 DATA 2D, 00, B*7 ,28, 07 , AF, D3 , 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C 
200 DATA E6, 3F, F6, 40, D3, 99, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00 
210 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
220 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
230 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00,00,20 


O PROGRAMA PARA LIMPAR 
O VÍDEO DESLOCANDO A TELA PARA CIMA 

Listagem em assembly Z-80 do código-fonte do programa para limpar a tela deslocan- 
do-a para cima: 

programa para limpar a tela - para cima 

;Compilar como programa GEN80.COM usando a seguinte 

;sintaxe: 

;GEN80 PROG11 .BIN-PROG1 1 .GEN 

;onde PROG1 1 .GEN é o nome do arquivo-texto com esta 
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;listagem 





versão 


equ 

#002d 


tinlen 


equ 

#13b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f 663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 



org 

#d000 


inicio 





id 

a, (valtyp) 

;verifica parâmetro 


cp 

#02 

;ó inteiro? 


ret 

nz 

;Não, volta para o BASIC 


Id 

a, (argusr) 

;a-número de rotações 


push 

af 

;salva número de rotações 


Id 

a, (versão) 

;a«versão do MSX 


or 

a 

;ó igual a zero (MSX 1 )? 


jr 

z, iniciol 

;Sim, vai para iniciol 


Id 

a,(linlen) 

;o MSX 2 está em 80 colunas? 


cp 

41 



jr 

c, iniciol 

;Não, pula para iniciol 


Id 

a,80 

;Sim, a-80 colunas 


jr 

inicio2 

;pula para inicio2 por ser 




;MSX 2 

iniciol 

Id 

a, 40 

;a-40 colunas 

inicio2 

Id 

(numcol),a 

;coloca o núm. de colunas em 




jnumcol 


pop 

af 

;recupera o núm. de rotações 


di 


;desabilita as interrupções 


Id 

hl, primlinha 

;hl aponta para primlinha 


Id 

de.primlinha+1 

;de-hl+1 


Id 

bc,79 

;comp. de primlinha -1 


Id 

(hl),#20 

Ipreenche primlinha com 


Idir 


;espaços 


Id 

b,a 

;b-número de rotações 

loopl 

push 

bc 

;salva contador externo 


Id 

hl.(txtnam) 

;hl=end. tabela de nomes 


Id 

a.(numcol) 

;a-núm. de colunas 


Id 

e,a 

;de*núm. de colunas 
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bop2 


ld 

d,#00 

ld 

b,23 

push 

bc 

add 

hl.de 

call 

setvdprd 

ld 

a.(numcol) 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

b.a 

call 

lelinha 

pop 

hl 

pop 

de 

xor 

a 

sbc 

hl.de 

call 

setvdpwt 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

a.(numcol) 

ld 

b.a 

call 

esclinha 

pop 

hl 

pop 

de 

add 

hl.de 

pop 

bc 

djnz 

loop2 

call 

setvdpwt 

ld 

hl, primlinha 

ld 

a.(numcol) 

ld 

b.a 

call 

esclinha 

pop 

bc 

djnz 

loopl 


ei 

ret 


b-24 linhas na tela 
salva contador intermediário 
hl aponta para a próx. linha 
prepara o VDP para leitura 
a-núm. de colunas 
salva de 
salva hl 

hl aponta para o buffer 
b»núm. de colunas 
lê uma linha 
recupera hl 
recupera de 
.zera a flag de carry 
hl aponta para a linha 
anterior 

prepara o VDP para escrita 
salva de 
salva hl 

hl aponta para o buffer 
a-núm. de colunas 
b-núm. de colunas 
envia a linha 
recupera hl 
recupera de 

hl aponta para a próx. linha 
recupera bc 

repete para as demais linhas 
prepara o VDP para escrita 
hl aponta para o buffer 
primlinha 

a-núm. de colunas 
>-núm. de colunas 
escreve uma linha de espaços 
ecupera bc 

epete ató terminar todas 
as rotações 
habilita as interrupções 
etorna ao BASIC 


lelinha 

in a, (#98) ;lè o carac. da VRAM 

ld (hl), a ;salva-o no buffer 

inc hl ;incrementa o ponteiro 

djnz lelinha prepara a próxima leitura 

ret jretorna 
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esclinha 



ld 

a, (hl) 

lê o carac. do buffer 


out 

(#98), a 

escreve-o na VRAM 


inc 

hl 

incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 

;retorna 

setvdprd 





ld 

a.(versao) 

obtém a versão do MSX 


or 

a 

é MSX1? 


jr 

z, rdvram 1 

Sim, vai para rdvram 1 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvram 1 

ld 

a.l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a,h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99), a 



ret 



setvdpwt 





ld 

a, (versão) ;obtém a versão do MSX 


or 

a 

ÓMSX1? 


\r 

z, wtvraml ;Sim, vai para wtvraml 


xor 

a ;Não, inicializa o VDP 


out 

(#99), a ;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l ;informa ao 


out 

(#99), a ;VDP o endereço na 


ld 

a,h 

VRAM onde o 


and 

#3f ;dado será 


or 

#40 ;gravado 


out 

(#99), a ; 



ret 




bufferlinha 

defs 

80 

primlinha 

defs 

80 

numcol 

defb 

#00 

fim 

equ 

$ 


OVÍDEO 57 


Listagem em linhas DATA do código-objeto do programa para LIMPAR a tela deslocan- 
do-a para cima: 

10 FOR A%=iHD000 TO &HD156 
20 READ B$ 

30 POKE A% , VAL (”SH"+B$) 

40 NEXT A% 

50 BSAVE "PROGll.BIN", tHDOOO, 4HD156 

100 DATA 3A, 63, F6, FE, 02 , C0, 3A, F8, F7, F5, 3A, 2D, 00, B7, 28, 0B 
110 DATA 3A, B0, F3, FE, 29,38, 04 , 3K, 50, 18, 02 , 3E, 28, 32, 55, Dl 
120 DATA ri,F3, 21,05,D1, 11,06,D1 # 01, 4», 00, 36, 20, ED, B0, 47 
130 DATA C5,2A,B3,F3,3A,55,D1,5F,16,00,06,17,C5,19,CD,87 
140 DATA D0 , 3A, 55, Dl, D5, K5, 21 , B5, D0, 47, CD, 79, DO, El, Dl , AF 
150 DATA ED, 52, CD, 9D, DO, D5, K5, 21, B5, DO, 3A, 55, Dl, 47, CD, 80 
160 DATA DO, Kl, Dl, 19, Cl, 10, D5, CD, 9D, DO, 21, 05, Dl, 3A, 55, Dl 
170 DATA 47 , CD, 80, DO, Cl, 10, B9, FB, C9, DB, 98,77,23,10, FA, C9 
180 DATA 7E,D3, 98,23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07,AF,D3, 99 
190 DATA 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, C9, 3A, 2D, 00 
200 DATA B7 ,28, 07 , AF , D3 , 99, 3E, 8E, D3 , 99, 7D, D3, 99, 7C, E6, 3F 
210 DATA F6, 40, D3, 99, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
220 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
230 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
260 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
300 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
310 DATA 00,00,00,00,00,00,00 


O PROGRAMA PARA LIMPAR 
O VÍDEO DESLOCANDO A TELA PARA BAIXO 

Listagem em assembly Z-80 do código-fonte do programa para limpar a tela deslocan- 
do-a para baixo: 

programa para limpar a tela • baixo 

;Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

■GEN80 PROG12.BIN-PROG12.GEN 

;onde PROG12.GEN é o nome do arquivo-texto com esta 
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•.listagem 





versão 


equ 

#002d 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 



org 

#d000 


inicio 

ld 

a, (valtyp) 

;verifica parâmetro 


cp 

#02 

;ó inteiro? 


ret 

nz 

;Não, volta para o BASIC 


ld 

a.(argusr) 

;a-número de rotações 


push 

af 

;salva número de rotações 


ld 

a.(versao) 

;a-versão do MSX 


or 

a 

;é igual a zero (MSX 1 )? 


V 

z, iniciol 

;Sim, vai para iniciol 


ld 

a.(linlen) 

;o MSX 2 está em 80 colunas? 


cp 

41 



jr 

c.iniciol 

;Não. pula para iniciol 


ld 

a, 80 

;Sim, a-80 colunas 


jr 

inicio2 

;pula para inicio2 por ser 
;MSX 2 

iniciol 

ld 

a,40 

;a-40 colunas 

inicio2 

ld 

(numcol).a 

;coloca o núm. de colunas em 
;numcol 


pop 

af 

;recupera o núm. de rotações 


di 


;desabilita as interrupções 


ld 

b.a 

;b-número de rotações 

loopl 

push 

bc 

;salva contador externo 


ld 

hl.(txtnam) 

;hl«end. tabela de nomes 


ld 

a.(numcol) 

;a-núm. de colunas 


ld 

e.a 

;de«núm. de colunas 


ld 

d, #00 

» 


ld 

b,23 

;b-núm. de linhas-1 

calutt 

add 

hl.de 

;calcula o endereço da 


djnz 

calult 

;última linha 


push 

de 

;salva de 
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kx>p2 


push 

hl 

ld 

hl.ultlinha 

ld 

de.ultlinha+1 

ld 

bc.79 

ld 

Idir 

(hl), #20 

pop 

hl 

pop 

de 

ld 

b,23 

push 

bc 

xor 

a 

sbc 

hl.de 

call 

setvdprd 

ld 

a.(numcol) 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

b,a 

call 

lelinha 

pop 

hl 

pop 

de 

add 

hl.de 

call 

setvdpwt 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

a.(numcol) 

ld 

b.a 

call 

esclinha 

pop 

hl 

pop 

de 

xor 

a 

sbc 

hl.de 

pop 

bc 

djnz 

Ioop2 

call 

setvdpwt 

ld 

hl.ultlinha 

ld 

a.(numcol) 

ld 

b.a 

call 

esclinha 

pop 

bc 

djnz 

loopl 


ei 

ret 


;salva hl 

;hl aponta para ultlinha 
;de=hl+1 

;bc-comp. da linha-1 
preenche com espaços 

;recupera hl 

;recupera de 

;b-23 linhas na tela 

;salva contador intermediário 

;zera a flag de carry 

;hl aponta para a linha ant. 

prepara o VDP para leitura 

;a=núm. de colunas 

;salva de 

;salva hl 

;hl aponta para o buffer 
;b«núm. de colunas 
;lê uma linha 
;recupera hl 
;recuperade 

;hl aponta para a próx. linha 
prepara o VDP para escrita 
;salva de 
;salva hl 

;hl aponta para o buffer 
;a-núm. de colunas 
;b=núm. de colunas 
;envia a linha 
;recupera hl 
;recupera de 
;zera a flag de carry 
;hl aponta para a linha ant. 
;recupera bc 

;repete para as demais linhas 
prepara o VDP para escrita 
;hl aponta para o buffer 
primlinha 

;a=núm. de colunas 
;b=núm. de colunas 
;escreve uma linha de espaços 
;recupera bc 

;repete até terminar todas 
;as rotações 
;habilita as interrupções 
jretorna ao BASIC 
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lelinha 


esclinha 


setvdprd 


rdvraml 


setvdpwt 


wtvraml 


in 

a, (#98) 

;lê o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

.prepara a próxima leitura 

ret 


;retorna 


ld 

a, (hl) 

;lê o carac. do buffer 

out 

(#98),a 

;escreve-o na VRAM 

inc 

hl 

;incrementa o ponteiro 

djnz 

esclinha 

iprepara a próxima escrita 

ret 


;retorna 


ld 

a.(versao) 

obtém a versão do MSX 

or 

a 

ó MSX1? 

jr 

z.rdvraml 

Sim, vai para rdvraml 

xor 

a 

Não, inicializa o VDP 

out 

(#99), a 

do MSX2 

ld 

a,#8e 


out 

(#99), a 


ld 

a,l 

informa ao 

out 

(#99), a 

VDP o endereço na 

ld 

a,h 

VRAM onde será 

and 

#3f 

lido o dado 

out 

(#99), a 


ret 




ld 

a, (versão) 

;obtém a versão do MSX 

or 

a 

;ó MSX1? 

k 

z, wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


ld 

a,l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99), a 

t 

ret 
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bufferlinha 

defs 

80 

uttlinha 

defs 

80 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para limpar a tela deslocando- 
a para baixo: 

10 FOR A%=íHD000 TO 4HD161 
20 READ B$ 

30 POKE A% , VAL ( " &H"+B$) 

40 NEXT A% 

50 BSAVE "PROG12 .BIN" , íHDOOO, 4HD161 

100 DATA 3A, 63, F6, FE, 02 . C0, 3A, F8, F7 , F5, 3A, 2D, 00, B7, 28, 0B 
ll0 DATA 3A, BO, F3, FE, 29, 38, 04 , 3E, 50, 18, 02 , 3E, 28, 32, 60, Dl 
120 DATA F1,F3, 47, C5, 2A,B3,F3, 3A, 60, Dl, 5F, 16, 00, 06, 17, 19 
130 DATA 10,FD, D5, E5, 21, 10, Dl, 11, 11, Dl, 01, 4F, 00, 36, 20, ED 
140 DATA B °,E1, Dl, 06, 17, C5, AF,ED, 52, CD, 92, D0, 3A, 60, Dl, D5 
15. DATA E5, 21, C0, D0, 47, CD, 84, D0, El, Dl, 19, CD, A8, DO, D5, E5 
16- DATA 21, CO, DO, 3A, 60, Dl, 47, CD, 8B, DO, El, Dl, AF, ED, 52, Cl 
170 DATA 10, D3, CD, A8, DO, 21, 10, Dl, 3A, 60, Dl, 47, CD, 8B, DO, Cl 
180 DATA 10, Al, FB, C9, DB, 98, 77,23, 10, FA, C9, 7E, D3, 98, 23, 10 
190 DATA FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99, 7D 
200 DATA D3, 99, 7C, E6, 3F , D3, 99, C9, 3A, 2D, 00, B7, 28, 07, AF, D3 
210 DATA 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, F6,40,D3, 99, C9 
220 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
230 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
260 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00* 00 
270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,* 00 
300 DATA 00#00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
310 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 00 
320 DATA 00,00 

COMENTÁRIOS SOBRE 
OS PROGRAMAS PARA LIMPAR O VÍDEO 

Até agora, vimos quatro programas que limpam a tela deslocando-a numa determinada 
direção. Agora, gostaria de apresentar uma rotina de um efeito que sempre me impressionou: 
limpar a tela como se estivéssemos fechando uma persiana. A rotina que apresento neste 
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capítulo tem um funcionamento bem simples, que consiste na rotação para cima dos dese- 
nhos de cada um dos 256 caracteres. 


LIMPANDO A TELA COM EFEITO PERSIANA 


Na verdade, o termo rotação está mal empregado, já que existe uma rotação para cima se- 
guida de um preenchimento com zeros de todos os 8 bits que formam o último byte do dese- 
nho. "Mas, por que com zeros?" Você deve estar lembrado, quando vimos a tabela de padrões, 
que o VDP "acende" os bits iguais a 1 dos 8 bytes que formam o desenho de um caractere. 
Dito isto, o que nós temos que fazer é ir preenchendo paulatinamente com zeros os bits que 
constituem os bytes que formam os desenhos. Vamos pegar o exemplo da letra A. A rotina ob- 
teria o desenho da letra A (mostrado no início deste capítulo) e, no final da primeira iteração, 
modificaria o desenho para: 


la. Iteração: 

01001000 

10000100 

10000100 

11111100 

10000100 

10000100 

00000000 

00000000 


Na segunda iteração, o desenho já seria: 


2a. Iteração: 

10000100 

10000100 

11111100 

10000100 

10000100 

00000000 

00000000 

00000000 


E assim continua até que, no final da oitava e última iteração, o desenho seria: 

8a. Iteração: 

00000000 

00000000 

00000000 

00000000 
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00000000 

00000000 

00000000 

00000000 


"Mas, Eduardo, nós estamos modificando os desenhos dos caracteres, e não a tabela de 
nomes, que é o que efetivamente mapeia o que aparece no vídeol" Você está absolutamente 
certo. Por isso, no final desta rotina, temos de LIMPAR efetivamente a tela, preenchendo a ta- 
bela de nomes com espaços e restaurar os desenhos originais de todos os caracteres. Estas 
duas últimas etapas são executadas com chamadas às rotinas CLS e INITXT, respectiva- 
mente, na ROM BIOS do seu MSX. Apresentada a teoria, vamos à listagem da rotina. 


O PROGRAMA QUE LIMPA 
O VÍDEO COM EFEITO PERSIANA 

Listagem em assembly Z-80 do código-fonte do programa para limpar a tela com efeito 
persiana: 

Iprograma para limpar a tela - persiana 

;Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

;GEN80 PROG13.BIN=PROG13.GEN 

;onde PROG13.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 


equ 

#002d 


cis 


equ 

#00c3 


initxt 


equ 

#006c 


linlen 


equ 

#f3b0 


txtnam 


equ 

#f3b3 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 
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inicio 



di 

ld 

hl.(txtcgp) 

;desabilita as interrupções 
;hl-end. tab. de formação dos 


ld 

a, (versão) 

;caracteres 
;a-versão do MSX 


or 

a 

;ó igual a zero (MSX 1 )? 


jr 

z, iniciol 

;Sim, vai para iniciol 


ld 

a,(linlen) 

;o MSX 2 está em 80 colunas? 


cp 

jr 

41 

c, iniciol 

;Não, pula para iniciol 


add 

hl, hl 

;Sim, calcula novo end. na 

iniciol 

ld 

(endtab).hl 

;VRAM 

;salva o end. da tabela 


ld 

b,#08 

;b-núm. de bytes por carac. 

loopO 

push 

bc 

;salva núm.de bytes por carac. 


ld 

b,#00 

;b-256 repetições-núm. de 


ld 

hl.(endtab) 

;caracteres 

;obtóm o end. da tabela em hl 


ld 

de, #0008 

;de-bytes por desenho de 

bopl 

push 

bc 

carac. 
;salva bc 


push 

de 

;salva de 


push 

hl 

;salva hl 


call 

setvdprd 

prepara o VDP para leitura 


ld 

b,#08 

;b-núm. de bytes por desenho 


ld 

hl.buffer 

;de caractere 

;hl aponta para o buffer 


call 

lelinha 

;lê um desenho de carac. 


ld 

(hl), #00 

;cobca um espaço no buffer 


pop 

hl 

;recupera valor antigo de hl 


push 

hl 

;torna a salvar 


call 

setvdpwt 

prepara o VDP para escrita 


ld 

b,#08 

;b-núm. de bytes por desenho 


ld 

hl,buffer+#01 

;de caractere 

;hl aponta para buffer+#01 


call 

esclinha 

;escreve o novo desenho 


pop 

hl 

;recupera os 


pop 

de 

;registros 


pop 

bc 

;salvos anteriormente 


add 

hl.de 

;hl aponta para o próximo 


djnz 

loopl 

;desenho 

;repete para todos os 256 


call 

espera 

paracteres 

;retardo para tornar o efeito 


pop 

bc 

yisível 

;recupera o contador externo 


djnz 

loopO 

;repete enquanto b < > 0 




ei 


-.habilita as interrupções 


call 

cis 

;limpa realmente a tela 


call 

initxt 

;restabelece os desenhos 




;originais 


ret 


volta para o BASIC 

espera 






ld 

hl, #1000 

;altere este valor para uma 




velocidade diferente 

esperai 

dec 

hl 

.decrementa hl 


ld 

a.h 

;e testa para 


or 

1 

;ver se hl— 0 


V 

nz.esperal 

;Se não for, volta para 




;espera1 


ret 


;Se for, volta para a rot. 




principal 

lelinha 






in 

a, (#98) 

;lè o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

prepara a próxima leitura 


ret 


;retorna 

esclinha 






ld 

a, (hl) 

;lè o carac. do buffer 


out 

(#98),a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


jretorna 

setvdprd 






ld 

a, (versão) 


obtém a versão do MSX 


or 

a 


éMSXI? 


jr 

z.rdvraml 


Sim, vai para rdvraml 


xor 

a 


Não, inicializa o VDP 


out 

(#99), a 


do MSX2 


ld 

a,#8e 




out 

(#99), a 



rdvraml 

ld 

a,l 


informa ao 


out 

(#99), a 


VDP o endereço na 


ld 

a,h 


VRAM onde será 


and 

#3f 


lido o dado 


out 

(#99), a 




ret 





setvdpwt 
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ld 

a.(versao) 

;obtóm a versão do MSX 

or 

a 

;ó MSX1? 

i r 

z, wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99),a 


wtvraml ld 

a.l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99), a 

9 

ret 




endtab 

defw 

#0000 

buffer 

defs 

9 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para limpar a tela com efeito 
persiana: 

10 TOR A%=tHD000 TO 4HD0A1 
20 READ B$ 

30 POKE A% , VAL (" fcH”+B$) 

40 NEXT A% 

50 BSAVE "PROG13.BIN", ÍHD000, íHDOAl 

100 DATA F3, 2A, B7 , F3, 3A, 2D, 00, B7, 28,08, 3A, B0, F3 , FE, 29, 38 
110 DATA 01, 29, 22, 96, D0, 06, 08, C5, 06, 00, 2A, 96, D0, 11,08, 00 
120 DATA C5, D5, E5, CD, 68,D0,06,08,21, 98, D0, CD, 5A, D0, 36,00 
130 DATA E1,E5, CD, 7E, DO, 06, 08, 21, 99, DO, CD, 61, DO, El, Dl, Cl 
140 DATA 19, 10, DD, CD, 51, DO, Cl, 10, CE, FB, CD, C3, 00, CD, 6C, 00 
150 DATA C9, 21, 00, 10, 2B, 7C, B5, 20, FB, C9, DB, 98, 77,23, 10, FA 
160 DATA C9, 7E, D3, 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07, AF, D3 
170 DATA 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, C9, 3A, 2D 
180 DATA 00, B7 , 28, 07, AF , D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6 
190 DATA 3F, F6, 40, D3, 99, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
200 DATA 00, 99 


Listagem do programa de teste: 

10 CLS:WIDTH 40 

20BLOAD-PROG9.BIN":FILES:DEFUSR-&HD000:A-USR(40) 
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30 BLOAD"PROG1 0.BIN’:FILES:DEFUSR-&HD000:A-USR(40) 
40 BLOAD-PROG1 1 .BIN":FILES:DEFUSR-&HD000:A-USR(24) 
50 BLOAD"PROG1 2.BIN":FILES:DEFUSR-&HD000:A-USR(24) 
60BLOAD"PROG13.BIN":FILES:DEFUSR-&HD000:A-USR(0) 


Rode o programa de teste acima e "curta" o efeito dos cinco novos CLS que vocè pode im- 
plementar nos seus programas para dar aquele toque pessoal. Observe que nos quatro pri- 
meiros programas (LIMPAR rotando a tela) o argumento indica o número de linhas/colunas a 
LIMPAR. Alterando este argumento, você poderá LIMPAR apenas parte da tela, preservando 
as informações noutra parte. 


A TELA GRÁFICA DE ALTA RESOLUÇÃO (SCREEN 2) 

Com os programas/rotinas anteriores encerramos a nossa exploração das características 
do modo texto do MSX. A partir de agora, vamos nos dedicar ao entendimento do funciona- 
mento do modo gráfico de alta resolução (SCREEN 2 do BASIC). As rotinas apresentadas 
neste livro são básicas, possuindo uma finalidade puramente introdutória. Acontece que as 
principais características deste modo são a cor e a animação, principalmente nos jogos. Va- 
mos então aos fundamentos deste modo de tela. Como já sabemos, todos os modos de tela 
apresentam pelo menos duas tabelas: a tabela de nomes, que contém um mapa do que apa- 
rece e como aparece na tela, e a tabela de padrões, que contém os desenhos de todos os ca- 
racteres que aparecem na tela. O modo gráfico de alta resolução apresenta mais três tabelas: 
a tabela de cores, que armazena os atributos de cor, a tabela de atributos dos sprites, que ar- 
mazena os dados dos sprites como posição e cor, e a tabela de padrões dos sprites, que 
contém os desenhos de todos eles. Antes de passar para o estudo de cada uma destas tabe- 
las, vamos entender o mecanismo do modo gráfico de alta resolução. 


GERENCIAMENTO DA TELA GRÁFICA 

A tabela de padrões deste modo apresenta uma extensão de 6Kb, ao contrário dos 2Kb 
da mesma tabela no modo texto. "Quer dizer que, em vez de 256 caracteres, temos 256*3-768 
caracteres?" Não exatamente. Na verdade, a tela no modo gráfico de alta resolução pode ser 
mentalizada como um conjunto de três telas distintas, ou seja, como se a tela real (aquela que 
vemos) estivesse dividida em três partes horizontais iguais. Esta divisão tem uma vantagem: 
podemos definir três conjuntos diferentes de 256 caracteres. Vejamos o caso de um jogo da 
série Nemesis, da Konami. Neste tipo de jogo apresentam-se três planos de ação: um supe- 
rior (geralmente a parte de cima de um túnel), um mediano (geralmente um fundo preto com 
estrelas e asteróides), e um inferior (geralmente a parte de baixo do túnel). Acho que agora 
você já está entendendo por que os jogos com maior riqueza de detalhes têm a ação se pro- 
cessando lateralmente. "Mas, e se a ação do jogo se processar verticalmente?’ Bem, nada im- 
pede que a ação se desenrole no sentido vertical, só que, neste caso, os três conjuntos de 
caracteres terão que ser rigorosamente iguais, ou seja, só poderemos ter 256 caracteres. Ob- 
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serve que o termo caractere neste modo gráfico faz referência a um desenho criado pelo 
usuário (ou programador do jogo), e não a um caractere pertencente ao conjunto ASCII, co- 
mo por exemplo a letra A. No modo gráfico de alta resolução (SCREEN 2), você não ó capaz 
de imprimir um caractere na tela diretamente. Para fazer isso, você terá de abrir um canal (ins- 
trução OPEN "GRP:" do BASIC) para o modo gráfico e imprimir na tela usando esse canal. 
Tudo isso se torna necessário porque o modo gráfico não possui desenhos predefinidos para 
os caracteres, como acontece com o modo texto. Como na tabela de padrões do modo tex- 
to, a tabela de padrões do modo gráfico armazena os desenhos dos caracteres em matrizes 
8x8 bits. Como o modo gráfico apresenta uma resolução horizontal de 256 pontos (pixêis) e 
vertical de 1 92 pontos, e já que o desenho de cada caractere gasta 8 pixêis na vertical por 8 
pixêis na horizontal, podemos ter 192/8-24 linhas e 256/8-32 colunas. Desta forma, a tabela 
de nomes deverá ter um comprimento de 24*32-768 bytes. A vantagem do modo gráfico so- 
bre o modo texto está além de poder receber a definição de três conjuntos distintos de 256 
caracteres; está na possibilidade de atribuir até 1 6 cores para cada caractere. "Como assim?" 
A tabela de cores (inexistente no modo texto) tem exatamente o mesmo tamanho da tabela de 
padrões, de modo que, para cada byte na tabela de padrões, existe um byte associado na ta- 
bela de cores que define duas cores para o byte correspondente na outra tabela de padrões: 
uma cor para os bits iguais a 1 e outra para os bits iguais a 0. Como o desenho de cada ca- 
ractere gasta 8 bytes, temos 8*2-16 cores possíveis para um caractere. Como no MSX 1 (e 
no MSX 2 no modo gráfico 2) só temos 16 cores, nos bastam 4 bits (2 4 -16) para representar 
todas as cores. Tendo em vista que cada byte se constitui de 8 bits, o VDP obtém os 4 bits in- 
feriores (nas posições de 0 a 3) para representar a cor dos bits iguais a zero do byte associa- 
do na tabela de padrões, e os 4 bits superiores (nas posições de 4 a 7) para representar a cor 
dos bits iguais a 1 do byte associado na tabela de padrões. Para entender melhor como fun- 
ciona a tabela de padrões e a tabela de cores, digite e execute o programa em BASIC abaixo: 


10 SCREEN 2 

20 REM A LINHA 40 DEFINE O lo. BYTE DO DESENHO DO 
30 REM SEGUNDO CARACTERE 
40 VPOKE &H8.&B10101010 

50 REM A UNHA 70 DEFINE O 2o. BYTE DO DESENHO DO 
60 REM SEGUNDO CARACTERE 
70 VPOKE &H9,&B01010101 

80 REM AS UNHAS 100 E 110 DEFINEM AS CORES ASSOCIADAS AOS 
90 REM BYTES &H8 E &H9 DA TABELA DE PADRÕES 
100 VPOKE &H2008.&HF1 :REM BITS 1=BRANCO BITS 0=PRETO 
110 VPOKE &H2009.&H1 F:REM BITS 1=PRETO BITS 0=BRANCO 
120 GOT0 120 


Você pode estar estranhando os endereços usados. Acontece que a tabela de padrões se 
inicia no endereço #0000 da VRAM e termina no endereço #1 7FF; já a tabela de cores se ini- 
cia no endereço #2000 da VRAM e termina no endereço #37FF. Mas. após executar o progra- 
ma, o que você vê na tela? Se você estiver usando um monitor de boa qualidade, verá que a 
tela apresenta duas linhas paralelas exatamente iguais formadas por quatro pontos intercala- 
dos. Por que isso, se os bytes colocados nos endereços #0008 e #0009 (os dois primeiros 
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bytes do desenho do segundo caractere) são diferentes? A resposta está na cor dada aos bits 
(pixéis) zero e um dos dois bytes. Observe que ao primeiro byte do desenho foi dada a cor 
branca (&hf) para os bits iguais a 1 e preta (&h1 ) para os bits iguais a 0, e ao segundo byte foi 
dada a cor preta (&h1) para os bits iguais a 1 e branca (&hf) para os bits iguais a 0. Devido a 
esta inversão nas cores ó que ocorre a ilusão de que o primeiro e o segundo bytes do dese- 
nho do segundo caractere na tabela de padrões são iguais. Modifique a linha 110 para: 


110 VPOKE &H2009.&HF1 :REM BITS 1=BRANCO BITS 0=PRETO 


Execute novamente o programa e veja que agora as duas linhas já não são mais iguais. 
Bem, acho que já chega de teoria, não? Vamos então à prática. Vou agora apresentar duas 
rotinas que fazem exatamente a mesma rotação de tela (para a esquerda e para a direita) que 
a apresentada para o modo texto. Você vai observar que continuaremos trabalhando com a 
tabela de nomes cujo endereço inicial na VRAM ó tirado da variável do sistema GRPNAM (ve- 
ja a Tabela 1 .2). Vamos então às listagens dos dois programas que rotam a tela gráfica para 
a esquerda e para a direita respectivamente. 


O PROGRAMA QUE ROTA 
A TELA GRÁFICA PARA A ESQUERDA 


Listagem em assembty Z-80 do código-fonte do programa para rotar a tela gráfica para 
a esquerda: 

programa para rotar a tela gráfica para a esquerda 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG14.BIN-PROG14.GEN 

;onde PROG14.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 


equ 

linlen 


equ 

grpnam 


equ 

valtyp 


equ 

argusr 


equ 

txtcgp 


equ 

scrmod 


equ 


defb 

#fe 


defw 

inicio 


#002d 

#f3b0 

#f3c7 

#f663 

#f7f8 

#f3b7 

#fcaf 

;simula em CP/M 

;o cabecalho de 
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defw 

fim 

;um arquivo 

defw 

inicio 

;.BIN 



org 

#d000 


inicio 





ld 

a,(scrmod) 

;o MSX está no modo 


cp 

#02 

igráfico? 


ret 

nz 

;Não, retorna ao BASIC 


ld 

a,(valtyp) 

verifica parâmetro 


cp 

#02 

;é inteiro? 


ret 

nz 

;Não, volta para o BASIC 


kf 

a.(argusr) 

;a-número de rotações 


push 

af 

;salva número de rotações 


ld 

a, 32 

;a«32 colunas 


ld 

(numcol).a 

;coloca o núm. de colunas 




;em numcol 


pop 

af 

;recupera o núm. de rotações 


di 


;desabilita as interrupções 


ld 

b,a 

;b-número de rotações 

loopl 

push 

bc 

;salva contador externo 


ld 

hl.(grpnam) 

;hl=end. tabela de nomes 


ld 

a,(numcol) 

;a«núm. de colunas 


ld 

e,a 

;de-núm. de colunas 


ld 

d, #00 



ld 

b,24 

;b-24 linhas na tela 

k>op2 

push 

bc 

;salva contador intermediário 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a,(numcol) 

;a-núm. de colunas 


push 

de 

;salva de 


push 

hl 

;safva hl 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

b.a 

;b*núm. de colunas 


call 

lelinha 

;lê uma linha 


ld 

a.(numcol) 

;a-núm. de colunas 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

e.a 

;de-núm. de colunas 


ld 

d, #00 



ld 

a, (hl) 

;a-primeiro carac. da linha 


add 

hl.de 

;hl-aponta para o fim da 




;linha+1 


ld 

(hl).a 

;coloca o prim. carac. na 




;última posição 


pop 

hl 

;recupera hl 


pop 

de 

;recupera de 


call 

setvdpwt 

prepara o VDP para escrita 
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push 

de 

salva de 

push 

hl 

salva hl 

ld 

hl,bufferlinha+1 

hl aponta para o buffer+1 

ld 

a,(numcol) 

a-núm. de colunas 

ld 

b.a 

b«núm. de colunas 

call 

esclinha 

envia a linha já rotada 

pop 

hl 

recupera hl 

pop 

de 

recupera de 

add 

hl.de 

hl aponta para a próx. linha 

pop 

bc 

recupera bc 

djnz 

loop2 

repete para as demais linhas 

pop 

bc 

.recupera bc 

djnz 

loopl 

;repete ató terminar todas 
;as rotações 

ei 


;habilita as interrupções 

ret 


;retorna ao BASIC 


lelinha 

in 

a, (#98) 

;lô o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


Inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

prepara a próxima leitura 


ret 


;retorna 

esclinha 

ld 

a, (hl) 

;lê o carac. do buffer 


out 

(#98).a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


;retorna 


setvdprd 

ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

ó MSX1? 


jr 

z, rdvraml 

Sim, vai para rdvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvraml 

ld 

a.l 

informa ao 


out 

(#99),a 

VDP o endereço na 


ld 

a.h 

.VRAM onde será 


and 

#3f 

;lido o dado 


out 

(#99), a 



ret 
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setvdpwt 


ld 

a, (versão) 

;obtóm a versão do MSX 

or 

a 

;ó MSX1? 

jr 

z, wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99),a 


wtvraml ld 

a.l 

;informa ao 

out 

(#99),a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99),a 

f 

ret 




bufferlinha 

defs 

33 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela gráfica para a 
esquerda: 

10 FOR A%«tHD000 TO &HD0BA 
20 READ B$ 

30 POKE A% , VAL (" SH"+B$) 

40 NEXT A% 

50 BSAVE "PR0G14.BIN", ÍHD000, ÍHD0BA 

100 DATA 3A, AF , FC, FE, 02 , C0, 3A f 63, F6 , FE, 02 , C0, 3A, F8, F7, F5 
110 DATA 3E, 20, 32 , B9, D0, F1 , F3, 47, C5 , 2A, C7 , F3, 3A, B9, D0, 5F 
120 DATA 16,OO,O6,18,C5,CD,6A,D0,3A,B9,DO,D5,E5,21,98,DO 
130 DATA 47 , CD, 5C, DO, 3A, B9, DO, 21, 98, DO, 5F, 16, 00, 7E, 19, 77 
140 DATA El, Dl, CD, 80, DO, D5, £5, 21, 99, DO, 3A,B9, DO, 47, CD, 63 
150 DATA DO, El, Dl, 19, Cl, 10, CD, Cl, 10, BE, FB,C9,DB, 98, 77, 23 
160 DATA 10, FA, C9, 7E, D3, 98, 23, 10, FA, C9, 3A, 2D, 00, B7, 28, 07 
170 DATA AF,D3, 99, 3E, 8E,D3, 99, 7D, D3, 99, 7C,E6, 3F,D3, 99, C9 
180 DATA 3A,2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E,D3, 99,7D,D3, 99 
190 DATA 7C,E6, 3F,F6, 40, D3, 99, C9, 00, 00, 00, 00, 00, 00, 00, 00 
200 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
210 DATA 00,00,00,00,00,00,00,00,00,00,00 
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Listagem do programa de teste: 

100 BLOAD-PROG14.BIN" 

110 SCREEN 2 

1 20 LINE (1 0,1 0)-(40,40),15,BF 
130 LINE (21 5, 1 50)-(245, 1 80), 1 2,BF 
140 LINE (215,10)-(245,40),13,BF 
150 LINE (1 0,1 50)-(40,1 80),1 4,BF 
160 CIRCLE (128, 95), 80, 3 
170 PAINT (128, 95), 3 
180 DEFUSR-&HD000 

1 90 IF INKEY$-"" THEN 1 90 ELSE A-USR(1 ):GOTO 1 90 


O PROGRAMA QUE ROTA 
A TELA GRÁFICA PARA A DIREITA 

Listagem em assembly Z-80 do código-fonte do programa para rotar a tela gráfica para 
a direita: 

programa para rotar a tela gráfica para a direita 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG15.BIN-PROG15.GEN 

;onde PROG15.GEN é o nome do arquivo-texto oom esta 
;listagem 


versão 


equ 

#002d 


linlen 


equ 

#f3b0 


grpnam 


equ 

#f3c7 


valtyp 


equ 

#f663 


argusr 


equ 

#f7f8 


txtcgp 


equ 

#f3b7 


scrmod 


equ 

#fcaf 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 
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inicio 


loopl 


Ioop2 


ld 

a,(scrmod) 

cp 

#02 

ret 

nz 

ld 

a,(valtyp) 

cp 

#02 

ret 

nz 

ld 

a,(argusr) 

push 

af 

ld 

a, 32 

ld 

(numcol), a 

pop 

di 

af 

ld 

b.a 

push 

bc 

ld 

hl.(grpnam) 

ld 

a, (numcol) 

ld 

e.a 

ld 

d, #00 

ld 

b,24 

push 

bc 

call 

setvdprd 

ld 

a, (numcol) 

push 

de 

push 

hl 

ld 

hl,bufferlinha+1 

ld 

b.a 

call 

lelinha 

ld 

a, (numcol) 

ld 

hl.bufferlinha 

ld 

e,a 

ld 

d, #00 

add 

hl.de 

ld 

a, (hl) 

ld 

hl.bufferlinha 

ld 

(hl).a 

pop 

hl 

pop 

de 

call 

setvdpwt 

push 

de 

push 

hl 

kJ 

hl.bufferlinha 

ld 

a,(numcol) 

ld 

b.a 

call 

esclinha 


o MSX está no modo 
gráfico? 

Não, retorna ao BASIC 
verifica parâmetro 
ó inteiro? 

Não, volta para o BASIC 
a-número de rotações 
salva número de rotações 
a-32 colunas 

coloca o núm. de colunas em 
numcol 

recupera o núm. de rotações 
desabilita as interrupções 
b=número de rotações 
salva contador externo 
hl=end. tabela de nomes 
a=núm. de colunas 
de-núm. de colunas 

b-24 linhas na tela 
salva contador intermediário 
prepara o VDP para leitura 
a-núm. de colunas 
salva de 
salva hl 

hl aponta para o buffer+1 
b-núm. de colunas 
lê uma linha 
a-núm. de colunas 
hl aponta para o buffer 
de-núm. de colunas 

hl aponta para o últ. carac. 
a-último carac. da linha 
hl aponta para o buffer 
coloca o últ. carac. na 
primeira posição 
recupera hl 
recupera de 

prepara o VDP para escrita 
salva de 
salva hl 

hl aponta para o buffer 
a-núm. de colunas 
b-núm. de colunas 
envia a linha já rotada 



OVÍDEO 75 


lelinha 


esclinha 


setvdprd 


rdvraml 


setvdpwt 


pop 

hl 

;recupera hl 

pop 

de 

;recuperade 

add 

hl.de 

;hl aponta para a próx. linha 

pop 

bc 

;recupera bc 

djnz 

loop2 

;repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

loopl 

'.repete até terminar todas 
;as rotações 

ei 


;habilita as interrupções 

ret 


;retorna ao BASIC 


in 

a, (#98) 

;lè o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

prepara a próxima leitura 

ret 


;retorna 


ld 

a, (hl) 

;lê o carac. do buffer 

out 

(#98), a 

;escreve-o na VRAM 

inc 

hl 

;incrementa o ponteiro 

djnz 

esclinha 

prepara a próxima escrita 

ret 


jretorna 


ld 

a, (versão) 

obtém a versão do MSX 

or 

a 

ó MSX1? 

jr 

z, rdvraml 

Sim, vai para rdvraml 

xor 

a 

Não, inicializa o VDP 

out 

(#99), a 

do MSX2 

ld 

a,#8e 


out 

(#99),a 


ld 

a.l 

informa ao 

out 

(#99), a 

VDP o endereço na 

ld 

a,h 

VRAM onde será 

and 

#3f 

lido o dado 

out 

(#99), a 


ret 




ld 

a, (versão) 

;obtém a versão do MSX 

or 

a 

;ó MSX1? 

jr 

z.wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 
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kl 

a,#8e 


out 

(#99), a 


wtvraml ld 

a,l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a.h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99), a 

1 

ret 




bufferlinha 

defs 

33 

numcol 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para rotar a tela gráfica para a 
direita: 


10 FOR A%-6HD000 TO &HD0BD 
20 READ B$ 

30 POKE A% , VAL (" tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG15.BIN", tHDOOO, tHDOBD 

100 DATA 3A, AF, FC, rE, 02 , C0, 3A, 63, F6 , FE, 02 , C0, 3A, F8, F7 , F5 
110 DATA 3E, 20, 32 , BC, D0 f F1 , F3 , 4 7, C5 , 2 A, C7 , F3, 3A, BC, D0, 5F 
120 DATA 16,00,06,18, C5, CD, 6D, DO, 3A, BC, DO, D5, E5, 21, 9C, DO 
130 DATA 47, CD, 5F, DO, 3A, BC, DO, 21, 9B, DO, 5F, 16, 00, 19, 7E, 21 
140 DATA 9B, DO, 77 , El, Dl , CD, 83, DO, D5 , E5, 21 , 9B, DO , 3A, BC, DO 
150 DATA 47, CD, 66, DO, El, Dl, 19, Cl, 10, CA, Cl, 10, BB, FB,C9,DB 
160 DATA 98, 77, 23, 10, FA, C9, 7E, D3, 98, 23, 10, FA, C9 , 3A, 2D, 00 
170 DATA B7 ,28, 07, AT, D3 ,99, 3E, 8E, D3, 99, 7D, D3, 99 , 7C, E6, 3F 
180 DATA D3, 99, C9, 3A, 2D, 00, B7 ,28, 07 , AF, D3, 99, 3E, 8E, D3, 99 
190 DATA 7D, D3, 99, 7C,E6,3F,F6, 40, D3, 99, C9,00,00,00, 00, 00 
200 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
210 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00 


Listagem do programa de teste: 

100 BLOAD-PROG15.BIN" 

110 SCREEN 2 

120 UNE (1 0,1 0)-(40,40),1 5,BF 
130 LINE (21 5,150)-(245,1 80),1 2,BF 
140 UNE (21 5,1 0)-(245,40),1 3,BF 
150 LINE (1 0,1 50)-(40,1 80),1 4,BF 
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160 CIRCLE (128,95),80.3 
170 PAINT (128 p 95),3 
180 DEFUSR-&HDOOO 

190 IF INKEY$-"" THEN 190 ELSE A-USR(1):GOTO 190 


COMENTÁRIOS SOBRE 

OS PROGRAMAS DE ROTAÇÃO DA TELA GRÁFICA 

Antes de executar os programas de teste, repare que existem alguns comandos em BA- 
SIC para a construção de figuras gráficas em diversas cores. Esta etapa se torna necessária 
para podermos preencher as tabelas de padrões e de cores, e assim usarmos a tabela de 
nomes. O preenchimento das tabelas de padrões e de cores se torna necessário devido ao fa- 
to de que, quando se submete o comando SCREEN 2 ao interpretador BASIC do MSX, ocorre 
uma inicialização da VRAM, o que implica afirmar que a tabela de padrões ó preenchida com 
zeros (sem pixóis) e a tabela de cores com uns (#01 -cor transparente (#0) para os bits iguais 
a 1 e cor preta (#1) para os bits iguais a 0). Geralmente se diz que a cor dada aos bits iguais 
a 1 na tabela de padrões é a cor de frente, e a cor dada aos bits iguais a 0 na tabela de padrões 
é a cor de fundo. Seguindo esta nomenclatura, após a inicialização feita pelo comando 
SCREEN 2 podemos dizer que a cor de frente é transparente e a cor de fundo é preta. Vale 
também observar que a cor de fundo pode variar entre os modelos de MSX, ou seja, a tabela 
de cores pode ser inicializada com uma cor de fundo igual à azul, ao invés de preta. Uma vez 
preenchidas as tabelas de padrões e de cores, podemos aplicar o nosso algoritmo para a ro- 
tação da tela. O algoritmo usado para a rotação de uma tela gráfica é exatamente o mesmo 
que o usado para a rotação de uma tela no modo texto. As únicas exceções estão no tama- 
nho da tabela de nomes e no respectivo endereço inicial na VRAM. Basta acompanhar os co- 
mentários feitos nas listagens do código-fonte para tirar qualquer dúvida. 

Ao executar os programas de teste, observe que o argumento da função USR ó 1 , ou se- 
ja, só é feita uma rotação (de apenas uma coluna) por vez. A linha 190 garante a realização 
de cada rotação enquanto você estiver pressionando uma tecla qualquer. Se você desejar fa- 
zer uma rotação completa da tela, deverá entrar com 32 (o número de colunas numa tela gráfi- 
ca) como argumento da função USR. 


OS SPRITES NA TELA DE ALTA RESOLUÇÃO 

Entre as diversas cartas que recebi, muitos leitores me perguntaram como movimentar um 
sprite pela tela usando somente as teclas do cursor. Antes de passar à rotina que realiza tal 
tarefa, vamos ver um pouco de teoria. No modo gráfico 2 existem duas tabelas dedicadas aos 
sprites: a tabela de padrões dos sprites, que contém os desenhos dos sprites, e a tabela de 
atributos dos sprites, que contém as coordenadas (x,y), a cor dos bits iguais a 1 no desenho 
e o plano (0 a 31 ) do sprite. Como você pode perceber, a tabela de padrões dos sprites é uma 
espécie de fusão das tabelas de nomes e de cores normais. Os endereços das duas tabelas 
dos sprites na VRAM são fornecidos pelas variáveis do sistema GRPATR e GRPPAT (consulte 
a Tabela 1.2). 
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A rotina em si ó bastante simples, apesar de empregar uma rotina para leitura direta do te- 
clado. Não se preocupe com esta última rotina, pois vamos estudá-la em detalhes numa próxi- 
ma oportunidade. Vamos então à listagem do código-fonte do programa para movimentar 
sprites pela tela. 


O PROGRAMA QUE 

IMPLEMENTA O CONTROLE SOBRE OS SPRITES 

Listagem em assembly Z-80 do código-fonte do programa para movimentar sprites pe- 
la tela: 

programa para movimentar sprites pela tela 

;Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

•GEN80PROG16.BIN-PROG16.GEN 


;onde PROG16.GEN ó o nome do arquivo-texto com esta 
;listagem 


versão 


equ 

#002d 


grppat 


equ 

#f3cf 


grpatr 


equ 

#f3cd 


scrmod 


equ 

#fcaf 



defb 

#fe 


;simula em CP/M 


defw 

inicio 


;o cabecalho de 


defw 

fim 


;um arquivo 


defw 

inicio 


;.BIN 


org 

#d000 



inicio 






ld 

a, (scrmod) 

;o MSX está no modo 


cp 

#02 


;gráfico? 


ret 

nz 


;Não, retorna ao BASIC 


di 



;desabilita as interrupções 


ld 

hl.(grppat) 

;hl aponta para a tab. de 





padrões 


ld 

de, desenho 

;de aponta para o desenho 


ld 

b,#08 


;b-8 bytes que formam o 





;desenho 

loopl 

ld 

a, (de) 


;este loop envia o desenho 


call 

wtvram 


para a tabela de padrões 
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loop2 


loopprin 


inc 

de 

;dos sprites na RAM de video 

inc 

hl 

;(VRAM) 

djnz 

loopl 

» 

kl 

hl.(grpatr) 

;hl aponta para a tab. de 
;atributos 

ld- 

de, atributos 

;de aponta para os atributos 

ld 

b,#04 

;b-4-núm. de bytes dos 
;atributos 

ld 

a, (de) 

;este loop envia os atributos 

call • 

wtvram 

;para a tabela de atributos 

inc 

de 

;dos sprites na RAM de vídeo 

inc 

hl 

;(VRAM) 

djnz 

loop2 

f 

call 

letecla 

;lê as teclas do cursor e 
;barra de espaço 

push 

af 

;salva o valor lido 

bit 

7, a 

;a seta para direita foi 
pressionada? 

call 

z, direita 

;Sim, chama a rotina direita 

pop 

af 

;recupera o valor lido 

push 

af 

,1orna a salvar 

bit 

4,a 

;a seta para esquerda foi 
pressionada? 

call 

z.esquerda 

;Sim, chama a rotina 
;esquerda 

pop 

af 

;recupera o valor lido 

push 

af 

;torna a salvar 

bit 

5, a 

;a seta para cima foi 
pressionada? 

call 

z .cirna 

;Sim, chama a rotina cima 

pop 

af 

;recupera o valor lido 

push 

af 

floma a salvar 

bit 

6, a 

;a seta para baixo foi 
pressionada? 

call 

z. baixo 

;Sim, chama a rotina baixo 

pop 

af 

;recupera o valor lido 

bit 

O.a 

;a barra de espaço foi 
pressionada? 

jr 

z, basic 

;Sim, prepara a voita ao 
;BASIC 

call 

espera 

;Não, espera para diminuir a 
; velocidade do movimento 

jr 

loopprin 

; fecha o loop 


basic 
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ei ;habilita as interrupções 

ret ;retorna ao BASIC 


letecla 



in 

a,(#aa) 


and 

#to 


or 

#08 


out 

(#aa),a 


in 

a,(#a9) 


ret 


espera 

ld 

hl, #1000 

loopesp 

dec 

hl 


ld 

a.h 


or 

1 


i r 

nz, loopesp 


ret 


direita 

ld 

hl.(grpatr) 


inc 

hl 


call 

rdvram 


inc 

a 


call 

wtvram 


ret 


esquerda 

ld 

hl.(grpatr) 


inc 

hl 


call 

rdvram 


dec 

a 


call 

wtvram 


ret 


cima 

ld 

hl.(grpatr) 


call 

rdvram 


or 

a 


jr 

z, cimal 


dec 

a 


prepara o ppi para ler 
;a linha (#08) com as 
;informaçÕes sobre as 
teclas do cursor 
;lè a coluna selecionada 
;volta 


provoca um retardo 
;baseado em sucessivos 
;decrementos no valor de 


;hl aponta para o atributo X 
;na VRAM 

;lô a posição x do sprite 

;incrementa-a 

;informa ao VDP a nova 

;posição 

;retorna 


;hl aponta para o atributo X 
;na VRAM 

;lê a posição x do sprite 

;decrementa-a 

;informa ao VDP a nova 

posição 

jretorna 


;hl aponta para o atributo Y 
;na VRAM 

;lê a posição y do sprite 
;é zero? 

;Sim, vai para cimal 

;Não, decrementa y (sobe o 

;sprite) 
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jr 

cima2 

;vai para cima2 

cimal 

ld 

a,191 

;coloca o sprite na ultima 
;linha 

cima2 

call 

wtvram 

;informa ao VDP a nova 
;posição 


ret 


;retorna 

baixo 

ld 

hl.(grpatr) 

;hl aponta para o atributo Y 
;na VRAM 


call 

rdvram 

;lê a posição y do sprite 


cp 

191 

;já está na última linha? 


jr 

z.baixol 

;Sim, vai para baixol 


inc 

a 

;Não, incrementa y (desce o 
;sprrte) 


jr 

baixo2 

;vai para baixo2 

baixo 1 

xor 

a 

;a=0=primeira linha 

baixo2 

call 

wtvram 

linforma ao VDP a nova 
posição 


ret 


;retorna 


rdvram 


ld a, (versão) 

obtém a versão do MSX 

or a 

ÓMSX1? 

jr z, rdvram 1 

Sim, vai para rdvram 1 

xor a 

Não, inicializa o VDP 

out (#99),a 

do MSX2 

ld a,#8e 


out (#99), a 


rdvram 1 ld a,l 

informa ao 

out (#99), a 

VDP o endereço na 

ld a.h 

VRAM onde será 

and #3f 

lido o dado 

out (#99),a 


ex (sp).hl 

demora para 

ex (sp).hl 

sincronização 

in a, (#98) 

lê o dado na VRAM 

ret 


wtvram 


push af 

salva dado a ser gravado 

ld a, (versão) 

obtém a versão do MSX 

or a 

ÓMSX1? 

jr Z, wtvram 1 

Sim, vai para wtvraml 

xor a 

Não, inicializa o VDP 

out (#99),a 

do MSX2 
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ld 

a,#8e 



out 

(#99),a 


wtvraml 

ld 

a,l 

;informa ao 


out 

(#99),a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

9 


ex 

(sp).hl 

;demora para 


ex 

(sp).hl 

;sincronização 


pop 

af 

;recupera o dado 


out 

(#98), a 

;grava o dado 


ret 




;Tabela de 8 bytes com o desenho do boneco 

desenho 

defb 

%00111000 

defb 

%00101000 

defb 

%00111000 

defb 

%000 10000 

defb 

%00111000 

defb 

%01010100 

defb 

%00101000 

defb 

%01000100 


;Tabela dos atributos do sprite 


atributos 


y 

defb 

86 

;coordenadas do ponto 

X 

defb 

128 

pentral da tela 

modelo 

defb 

0 

primeiro plano 

cor 

defb 

15 

;cor branca para o sprite 


fim equ $ 


Listagem em linhas DATA do código-objeto do programa para movimentar sprltes p 
tela: 

10 FOR A%-*HD000 TO 6HD0E5 
20 READ B$ 

30 POKE A% , VAL (" 4H"+B$) 

40 MEXT A% 

50 BSAVE "PROG16.BIN", 4HD000, 4HD0E5 
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100 DATA. 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 


3A,AF,FC,FE, 02 , CO, F3, 2A, CF, F3, 11, D», DO, 06, 08, IA 
CD, BB, DO, 13, 23, 10, F8, 2A, CD, F3, 11, El, DO, 06, 04, IA 
CD, BB, DO, 13, 23, 10,F8,CD, 51,D0,F5,CB, 7F,CC, 65, DO 
F1,F5,CB, 67, CC, 71, DO, Fl, F5, CB, 6F,CC, 7D,D0,F1,F5 
CB, 77, CC, 8F, D0,F1, CB, 47, 28, 05, CD, 5C, DO, 18, D8, FB 
C9, DB, AA, E6, FO, F6, 08 , D3, AA, DB, A9, C9, 21,00, 10, 2B 
7C, B5, 20 , FB, C9 , 2 A, CD, F3 , 23 , CD, Al , DO, 3C, CD, BB, DO 
C9, 2A, CD, F3, 23, CD, Al , DO, 3D, CD, BB, DO, C9 , 2A, CD, F3 
CD, Al, D0,B7, 28,03, 3D, 18, 02 , 3E, BF, CD, BB, DO, C9, 2A 
CD , F3 , CD , Al , DO , FE , BF ,28, 03, 3C, 18, 01, AF, CD, BB, DO 
C9,3A, 2D, 00, B7, 28,07, AF,D3, 99, 3E,8E,D3, 99, 7D, D3 
99, 7C, E6, 3F, D3, 99,E3,E3,DB, 98, C9, F5, 3A, 2D, 00, B7 
28, 07 , AF, D3, 99, 3E, 8E,D3, 99, 7D, D3, 99, 7C, E6, 3F, F6 
40, D3, 99, E3, E3, Fl, D3, 98,C9,38, 28,38, 10,38, 54, 28 
44,56, 80, 00, OF, 00 


Listagem do programa de teste: 

100BLOAD-PROG16.BIN" 

110 SCREEN 2 

120 UNE (1 0,1 0)-(40,40),1 5,BF 
130 UNE (215,150)-(245,180),12,BF 
140 UNE (215,10)-(245,40),13,BF 
150 UNE (1 0,1 50)-(40, 1 80),1 4.BF 
160 CIRCLE (128,95),80,3 
170 PAINT (1 28,95),3 
180 DEFUSR*&HD000 
190 A-USR(O) 


COMENTÁRIOS SOBRE O PROGRAMA 

QUE IMPLEMENTA O CONTROLE SOBRE OS SPRITES 

Observe que o programa de teste desenha e pinta algumas figuras gráficas antes de chamar 
a rotina em assembly para a criação e movimentação do sprite. O programa, tal como os an- 
teriores já apresentados, é bem simples, bastando apenas acompanhar os comentários na lis- 
tagem do código-fonte para um perfeito entendimento. Se você examinar a listagem do 
código-fonte, verá que a saída da rotina de movimentação do sprite na tela é determinada pe- 
lo pressionamento da barra de espaço. Desta forma, as teclas do cursor movimentam o sprite 
nas diversas direções (tente, por exemplo, pressionar as teclas da seta para cima e para a di- 
reita ao mesmo tempo), e a barra de espaço encerra a movimentação. 
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USANDO CARACTERES 

EM VEZ DE SPRITES NA TELA GRÁFICA 

Você já deve ter percebido que nos jogos animados nem todcs os objetos são sprites. Ve- 
jamos, por exemplo, o caso do jogo ARMY MOVIES. Neste jogo, temos um jipe que se movi- 
menta na horizontal da esquerda para a direita. Ao que tudo indica, o jipe é formado por um 
conjunto de seis sprites (três em cima e três em baixo). Entretanto, se repararmos bem, vere- 
mos que, à medida que o jipe se movimenta, a cor do fundo (a cor das montanhas, no caso) 
adquire a mesma cor do jipe. Se o jipe fosse realmente constituído por sprites, esse efeito de 
"borramento" não ocorreria. O que forma, então, o jipe? A resposta ó simples: o jipe é forma- 
do por um conjunto de seis caracteres (lembre-se que caracte.e, em tela gráfica, não quer di- 
zer caractere em ASCII). Pode parecer um retrocesso usar conjuntos de caracteres ao invés 
de sprites, mas acontece que a maioria dos jogos europeus p^ra o MSX é uma adaptação dos 
mesmos jogos feitos para o ZX Spectrum. Como o Spoctrum (no BRASIL, recebeu o nome de 
TK-90X) não possui o recurso de sprites, o jeito foi simulá-los usando a redefinição dos carac- 
teres. Para se ter uma idéia de como esta técnica evoluiu, basta dizer que a famosa Filmation 
II ó uma descendente da redefinição dos caracteres. A técnica da sobreposição dos caracteres 
redefinidos é bem simples. Vamos acompanhar um exemplo: suponha que desejemos dese- 
nhar uma mira que se movimente sobre um fundo em xadrez. Para tornar a rotina mais sim- 
ples, vamos limitar o desenho e o movimento da mira ao primeiro terço (lembre-se que a tela 
gráfica está dividida em três) da tela. Antes de começar, vamos a um pouco de teoria. Quan- 
do você pega uma folha em branco e começa a desenhar uma casa, por exemplo, a primeira 
coisa que você faz é desenhar o contorno da casa com um lápis preto. Depois de desenhar o 
contorno é que você começa a pintar. Este é exatamente o processo que temos de empregar 
para desenhar na tela gráfica. Primeiro, desenha-se o fundo da tela (um xadrez, no nosso 
exemplo), depois o contorno do caractere (no caso, a mira); logo em seguida, desenha-se a 
própria mira e, por último, o caractere que corresponde ao fundo com a mira sobreposta. Co- 
mo já sabemos, os desenhos dos caracteres nada mais são do que mapeamentos por bits. 
Vamos então aos desenhos (em bits) de cada um dos caracteres mencionados. 


Caractere do fundo (xadrez): 

10101010 

01010101 

10101010 

01010101 

10101010 

01010101 

10101010 

01010101 


Caractere do contorno da mira: 


11111111 



OVÍDEO 85 


10000001 

10000001 

10000001 

10000001 

10000001 

10000000 

11111111 


Caractere da mira: 

00000000 

00000000 

00111100 

00100100 

00100100 

00111100 

oooocooo 

00000000 


Combinação dos três caracteres acima: 

10101010 

00000001 

10111100 

00100101 

10100100 

00111101 

10000000 

01010101 


Observe que o desenho acima nada mais ó do que uma constituição da seguinte fórmula: 
caractere final = (fundo AND contorno) OR mira 

Esta fórmula é o segredo de tudo. "Mas, Eduardo, qual o motivo de toda esta explicação 
se o MSX possui sprites?" Ocorre que você não precisa usar sprites para tudo. É muito mais 
simples trabalhar com a tabela de nomes do que com a tabela de atributos dos sprites. No 
MSX, temos dois tipos de jogos: os japoneses e os europeus. Acho que você concorda comi- 
go quando afirmo que os jogos japoneses são de uma qualidade assustadoramente maior. Es- 
sa grande diferença se deve ao fato de os jogos japoneses serem desenvolvidos 
especificamente para o MSX, e não adaptados de outras máquinas, como acontece com os 
jogos europeus. Não obstante, os jogos japoneses também utilizam o recurso de sobreposição 
de caracteres, só que em escala muito reduzida. Na série Nemesis, da Konami, os canhões 
nas paredes dos túneis são caracteres, bem como a maioria das naves de ataque inimigas. 
Terminada a teoria, vamos para o exemplo prático. 
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0 PROGRAMA QUE 

MOVIMENTA CARACTERES EM VEZ DE SPRITES 

Listagem em assembty Z-80 do código-fonte do programa para sobreposição de 
teres gráficos: 

programa para sobreposição de caracteres gráficos 
jCompilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

1 

;GEN80 PROG 1 7.BIN-PROG 1 7.GEN 


;onde PROG17.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 

grpnam 

grpcol 

grpcgp 

scrmod 


inicio 



equ 

#002d 


equ 

#f3c7 


equ 

#f3c9 


equ 

#f3cb 


equ 

#fcaf 

defb 

#fe 


defw 

inicio 


defw 

fim 


defw 

inicio 


org 

#d000 



ld 

a, (scrmod) 

cp 

#02 

ret 

nz 

di 


call 

transdes 

call 

transcor 

call 

tabnomes 

ld 

hl,(grpnam) 

ld 

de, 32*3+1 6 

add 

hl.de 

ld 

a,#01 

call 

wtvram 

ld 

a,16 

ld 

(coluna), a 


;simula em CP/M 
;o cabecalho de 
;um arquivo 
;.BIN 


;o MSX está no modo 
;gráfico? 

;Não, retorna ao BASIC 
;desabilita as interrupções 
;chama a rotina transdes 
;chama a rotina transcor 
;chama a rotina tabnomes 

;hl aponta para a tab. de 

;nomes 

;de-Y«3 X-16 

;hl aponta para a pos. (X,Y) 

;a=núm. do segundo desenho 

;coloca a mira na tela 

;a«meio da linha (coluna 16) 

;salva o valor da coluna 


loopprin 



call 

letecla 

push 

af 

bit 

7, a 

call 

z, direita 

pop 

af 

push 

af 

bit 

4, a 

call 

z, esquerda 

pop 

af 

bit 

0,a 

jr 

z, basic 

call 

espera 

i r 

loopprin 

basic 


ei 


ret 



letecla 

in 

a,(#aa) 


and 

#f0 


or 

#08 


out 

(#aa),a 


in 

a.(#a9) 


ret 


espera 

ld 

hUlOOO 

loopesp 

dec 

hl 


ld 

a.h 


or 

1 


jr 

nz, loopesp 


ret 



direita 

ld 

hl.(grpnam) 


ld 

de, 3*32 


add 

hl.de 


;lè as teclas do cursor e a 
;barra de espaço 
;salva o valor lido 
;a seta para direita foi 
pressionada? 

;Sim, chama a rotina direita 
;recupera o valor lido 
;torna a salvar 
;a seta para esquerda foi 
pressionada? 

;Sim, chama a rotina esquerda 
;recupera o valor lido 
;a barra de espaço foi 
pressionada? 

;Sim, prepara a volta ao 
;BASIC 

;Não, espera para diminuir a 
velocidade de processamento 
;fecha o k>op 


;habilita as interrupções 
;retorna ao BASIC 


prepara o ppi para ler 
;a linha (#08) com as 
-.informações sobre as 
.leclas do cursor 
;lê a coluna selecionada 
,-volta 


provoca um retardo 
paseado em sucessivos 
;decrementos no valor de 
;hl 


;hl aponta para a tab. de 

pomes 

;de-Y«3 

;hl aponta para o início da 
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;linha 3 


push 

hl 



ld 

a, (coluna) 

;obtém a coluna atual 


ld 

d,#00 



ld 

e,a 

;de-coluna atual 


add 

hl.de 

;hl aponta para a pos. atual 


xor 

a 

;a«núm. do primeiro desenho 
;(xadrez) 


call 

wtvram 

;escreve o fundo 


pop 

hl 

;recupera o apontador para a 
;linha 


ld 

a, (coluna) 

;a«núm. de colunas 


cp 

31 

;chegou à última coluna? 


jr 

z.dirertal 

;Sim, vai para direital 


ld 

d, #00 



ld 

e.a 

;de-coluna atual 


inc 

de 



add 

hl.de 

;hl aponta para a nova 
;posição 


inc 

a 

;incrementa a coluna 


jr 

direita2 

;vai para direita2 

direital 

xor 

a 

;zera a coluna 

direita2 

ld 

(coluna), a 

;guarda a nova coluna 


ld 

a, #01 

;a=núm. do desenho da mira 


call 

wtvram 

;escreve a mira na nova 
Iposição 


ret 


;retorna 


esquerda 

ld 

hl.(grpnam) 

;hl aponta para a tab. de 




;nomes 


ld 

de,3*32 

;de-Y-3 


add 

hl.de 

;hl aponta para o início da 
;linha 3 


push 

hl 



ld 

a, (coluna) 

;obtém a coluna atual 


ld 

d, #00 



ld 

e.a 

;de«coluna atual 


add 

hl.de 

;hl aponta para a posição 
;atual 


xor 

a 

;a-núm. do primeiro desenho 
;(xadrez) 


call 

wtvram 

;escreve o fundo 


pop 

hl 

;recupera o apontador para a 
;linha 


ld 

a, (coluna) 

;a-núm. de colunas 
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esquerdal 


esquerda2 


or 

a 

;chegou à primeira coluna? 

jr 

z, esquerdal 

;Sim, vai para esquerdal 

ld 

d, #00 


ld 

e,a 

;de=coluna atual 

dec 

de 


add 

hl.de 

;hl aponta para a nova 
.posição 

dec 

a 

;decrementa a coluna 

jr 

esquerda2 

;vai para esquerda2 

ld 

a,31 

;a-última coluna 

ld 

d,#00 

9 

ld 

e.a 

;de-núm. da nova coluna 

add 

hl.de 

;hl aponta para o fim da 
;linha 

ld 

(coluna), a 

;guarda a nova coluna 

ld 

a,#01 

;a=núm. do desenho da mira 

call 

wtvram 

.escreve a mira na nova 
;posição 

ret 


;retorna 


;a rotina transdes transfere os desenhos para a tabela de 
;padrões 


transdes 

ld 

hl.(grpcgp) 


ld 

de.desenhol 


ld 

ix,desenho2 


ld 

iy,desenho3 


push 

de 


ld 

b,#08 

transdesl 

ld 

a, (de) 


call 

wtvram 


inc 

de 


inc 

hl 


djnz 

transdesl 


pop 

de 


ld 

b,#08 

transdes2 

ld 

a, (de) 


and 

(ix+#00) 


or 

(iy+#00) 


call 

wtvram 


inc 

hl 


inc 

de 


;hl aponta para a tab. de 
;padrões 

;de aponta para o desenhol 
;(xadrez) 

;ix aponta para o desenho2 
;iy aponta para o desenho3 

;b=8 bytes por desenho 
;este k>op transfere 
;o primeiro 

;desenho para a RAM 
;de vídeo 


;b-8 bytes 

;a*byte do desenho de fundo 
,-faz um AND com a máscara da 
;mira 

;faz um OR com o des. da mira 
;escreve o byte 
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inc 

IX 

» 

inc 

iy 

9 

djnz 

transdes2 

;repete para os 8 bytes do 



;desenho 

ret 


;retorna 


;a rotina transcor fornece a cor dos desenhos 


transcor 

ld 

hl.(grpcol) 

;hl aponta para a tabela das 


ld 

a,#f1 

;cores 

;branco (f— 1 5) para cor de 


, -frente e 

;preto (1) para acorde 
;fundo 


ld 

b,#10 

;b-16 bytes a colorir 

transcorl call 

wtvram 

;loop para enviar 

inc 

hl 

;a cor 

djnz 

transcorl 

9 

ret 


;retorna 


;a rotina tabnomes preenche o primeiro terço da tela com 
;o caractere do fundo (xadrez) 


tabnomes 

ld 

hl.(grpnam) 

;hl aponta para a tab. de 


ld 

b,#00 

;nomes 

iprepara um loop com 256 

tabnomesl 

xor 

a 

;repetições (768/3-256) 
;a=núm. do primeiro desenho 

call 

wtvram 

;preenche um terço da tela 


inc 

hl 

;com o primeiro desenho 


djnz 

tabnomesl 

;(xadrez) 

9 


ret 


;retorna 


rdvram 



ld 

a, (versão) 

;obtém a versão do MSX 

or 

a 

;é MSX1? 

V 

z.rdvraml 

;Sim, vai para rdvram 1 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 
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out 

(#99), a 


rdvraml 

ld 

a,l 

informa ao 


out 

(#99), a ;VDP o endereço na 


ld 

a,h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99), a 



ex 

(sp),hl ;demora para 


ex 

(sp),hl ;sincronização 


in 

a, (#98) ;lê o dado na VRAM 


ret 



wtvram 





push 

af 

salva dado a ser gravado 


ld 

a.(versao) 

obtém a versão do MSX 


or 

a 

ÓMSX1? 


jr 

z, wtvraml 

Sim, vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99),a 


wtvraml 

ld 

a,l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde o 


and 

#3f 

dado será 


or 

#40 

gravado 


out 

(#99), a 



ex 

(sp).hl 

demora para 


ex 

(sp).hl 

;sincronização 


pop 

af 

.recupera o dado 


out 

(#98), a 

;grava o dado 


ret 




;Tabela de 24 bytes co:u os desenhos do fundo, contorno e mira 

desenhol 

defb 

%1 01 01 010 


defb 

%01010101 


defb 

%1 01 01 010 


defb 

%01010101 


defb 

%1 01 01 010 


defb 

%01010101 


defb 

%1 01 01 010 


defb 

%01010101 

desenho2 

defb 

%1 1 1 1 1 1 1 1 


92 Guia do Programador MSX 
CAP.1 



defb 

%1 0000001 


defb 

%1 0000001 


defb 

%1 0000001 


defb 

%1 0000001 


defb 

%1 0000001 


defb 

% 10000001 


defb 

%1 111 1111 

desenho3 


defb 

%00000000 


defb 

%00000000 


defb 

%001 11100 


defb 

%00100100 


defb 

%00100100 


defb 

%001 11100 


defb 

%00000000 


defb 

%00000000 

coluna 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para sobreposição de carac- 
teres gráficos: 

10 FOR A%=fiHD000 TO &HD146 
20 READ B$ 

30 POKE A%,VAL("4H"+B$) 

40 NEXT A% 

50 BSAVE "PROG17.BIN", SHD000, 4HD146 

100 DATA 3A, AF , FC, FE, 02, C0, F3, CD, AF, D0, CD, DE, D0, CD, EC, D0 
110 DATA 2A, C7, F3 ,11, 70,00, 19, 3E, 01 , CD, 13, Dl, 3E, 10, 32, 49 
120 DATA Dl , CD, 3D, D0, F5, CB, 7F, CC, 51 , D0, F1 , F5, CB, 67, CC, 7E 
130 DATA D0, F1 , CS, 47, 28, 05, CD, 48, D0, 18, E6, FB, C9, DB, AA, E6 
140 DATA F0 , F6, 08, D3, AA, DB, A9, C9, 21,00,10, 2B, 7C, B5, 20, FB 
150 DATA C9, 2A, C7,F3,11,60,00,19, E5 , 3A, 49, Dl, 16, 00, 5F, 19 
160 DATA AF, CD, 13, Dl, El, 3A, 49, Dl, FE, 1F, 28, 08, 16, 00, 5F, 13 
170 DATA 19, 3C, 18 , 01, AF , 32, 49, Dl , 3E, 01, CD, 13, Dl , C9, 2A, C7 
180 DATA F3, 11, 60, 00, 19, E5, 3A, 49, Dl, 16, 00, 5F, 19, AF, CD, 13 
190 DATA 01, El, 3A, 49, D1,B7, 28,08,16,00, 5F, 1B, 19, 3D, 18, 06 
200 DATA 3E, 1F, 16,00, 5F , 19, 32 , 4 9, Dl , 3E, 01 , CD, 13, Dl , C9, 2A 
210 DATA CB, F3, 11, 31, Dl, DD, 21, 39, Dl, FD, 21, 41, Dl, D5, 06, 08 
220 DATA 1A,CD, 13, Dl, 13,23, 10, F8, Dl, 06, 08, IA, DD, A6, 00, FD 
230 DATA B6, 00, CD, 13, Dl, 23, 13, DD, 23, FD, 23,10, EE, C9, 2A, C9 
240 DATA F3, 3E, Fl, 06, 10, CD, 13, Dl, 23, 10, FA, C9, 2A, C7, F3, 06 
250 DATA 00, AF, CD, 13, Dl, 23, 10, FA, C9 , 3A, 2D, 00, B7 ,28, 07, AF 
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260 DATA D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, E3, E3 
270 DATA DB, 98, C9, F5, 3A, 2D, 00, B7 ,28,07, AF , D3, 99 , 3E, 8E, D3 
280 DATA 99, 7D, D3, 99, 7C, E6, 3F, F6, 40, D3, 99, E3, E3 ,F1, D3, 98 
290 DATA C9.. AA, 55, AA, 55, AA, 55, AA, 55 , FF , 81, 81, 81, 81, 81, 81 
300 DATA FT, 00, 00, 3C, 24, 24, 3C 


Listagem do programa da teste: 

10SCREEN2 

20BLOADTROG17.BIN" 

30 DEFUSR-&HDOOO 
40A-USR(0) 


COMENTÁRIOS SOBRE 

O PROGRAMA QUE MOVIMENTA CARACTERES 

Ao executar o programa de teste, você poderá observar que a mira se desloca para a di- 
reita ou para a esquerda sem modificar o fundo da tela. É claro que este exemplo ó bem sim- 
ples, mas já serve para dar uma idéia de como se processa a substituição de sprites por 
caracteres redefinidos. 


ANIMAÇÃO DE CARACTERES 
NA TELA DE ALTA RESOLUÇÃO 

Um outro efeito que sempre me chamou a atenção ó a animação de objetos. Suponha que 
você esteja fazendo um jogo que deve apresentar um radar. Neste caso, você teria duas 
opções: deixar o radar parado mostrando sempre o mesmo lado, ou f azè-lo movimentar-se so- 
bre si mesmo. É inegável que a segunda opção exerce um apelo visual muito mais forte. Mas, 
como fazer tal animação? A animação, tanto faz se nos desenhos animados como no compu- 
tador, consiste na troca rápida de imagens. No caso do radar, teríamos que trocar peto menos 
quatro imagens: o radar de frente, de lado com o centro apontando para a direita, de trás e, 
por último, de lado com o centro apontando para a esquerda. Feitos os quatro desenhos, res- 
taria transferi-los para a tabela de padrões, colocar as respectivas cores na tabela de cores e, 
por fim, usar a tabela de nomes para realizar a troca rápida das quatro imagens (caracteres). 
Parece simples, não? Na verdade, é bem simples. Neste capítulo, vou apresentar somente a 
rotina que faz tal animação, mas, no próximo capítulo, onde veremos as interrupções, você vai 
rever esta mesma rotina, só que oom um efeito muito mais interessante. Bom, vamos então à 
listagem do programa para animação de um radar. 
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O PROGRAMA QUE 

IMPLEMENTA A ANIMAÇÃO DE CARACTERES 

Listagem em assembly Z-80 do código-fonte do programa para animação em tela gráfl- 


programa para animação em tela gráfica 

Compilar com o programa GEN80.COM usando a seguinte 

sintaxe: 

GEN80 PR0G18.BIN=PR0G18.GEN 

onde PROG18.GEN ó o nome do arquivo-texto com esta 


;listagem 




versão 


equ #002d 


grpnam 


equ #f3c7 


grpcol 


equ #f3c9 


grpcgp 


equ #f3cb 


scrmod 


equ #fcaf 



defb 

#fe 

;simula em CP/M 


defw 

inicio 

;o cabecalho de 


defw 

fim 

;um arquivo 


defw 

inicio 

;.BIN 


org 

#d000 


inicio 

ld 

a, (scrmod) 

;o MSX está no modo 


cp 

#02 

;gráfico? 


ret 

nz 

;Não, retorna ao BASIC 


di 


;desabilita as interrupções 


call 

transdes 

;chama a rotina transdes 


call 

transcor 

;chama a rotina transcor 


call 

tabnomes 

;chama a rotina tabnomes 


ld 

hl, (grpnam) 

;hl aponta para a tab. de 
;nomes 


ld 

de, 32*3+1 6 

;de»Y«3 X-16 


add 

hl.de 

;hl aponta para a posição 
;(X,Y) 


xor 

a 

;a»núm. do primeiro desenho 


call 

wtvram 

icoloca o radar na tela 


ld 

e.a 

;salva o registro a no e 


loopprin 




ld 

a,e 

;recupera o registro a em e 


inc 

a 

-.incrementa o apontador do 
;desenho 


and 

%0000001 1 

;and 3 para ficar na faixa 
;0..3 


ld 

e,a 

;salva o registro a no e 


call 

wtvram 

;escreve o carac. no vídeo 


call 

letecla 

;lê as teclas do cursor e 
;a barra de espaço 


bit 

O.a 

;a barra de espaço foi 
pressionada? 


V 

z, basic 

;Sim, prepara a volta ao 
;BASIC 


call 

espera 

;Não, espera para diminuir a 
;velocidade de processamento 


K 

loopprin 

;fecha o loop 

basic 

ei 


;habilita as interrupções 


ret 


;retorna ao BASIC 


letecla 





in 

a,(#aa) prepara o ppi para ler 


and 

#f0 ;a linha (#08) com as 


or 

#08 ;inform ações sobre as 


out 

(#aa),a teclas do cursor 


in 

a,(#a9) 

lè a coluna selecionada 


ret 

;volta 

espera 

push 

hl 

salva hl-apontador para a 
VRAM 


ld 

hl, #8000 

provoca um retardo 

loopesp 

dec 

hl 

baseado em sucessivos 

ld 

a,h 

decrementos no valor de 


or 

1 

hl 


jr 

nz.loopesp 



pop 

hl 

recupera hl 


ret 


retorna 


;a rotina transdes transfere os desenhos do radar para a 
gabela de padrões 


transdes 


ld 


hl.(grpcgp) 


;hl aponta para a tab. de 
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transdesl 


ld de.desenhol 

ld b,#08*4 

ld a, (de) 

call wtvram 

inc de 

inc hl 

djnz transdesl 

ret 


padrões 

;de aponta para o desenhol 
;b=8 bytes por desenho * 4 
;desenhos 
;este loop transfere 
,1odos os 

;desenhos para a RAM 
;de vídeo 

t 

;retorna 


;a rotina transcor fornece a cor dos 4 desenhos 
;(caracteres) transferidos para a tabela de padrões 


transcor 

ld 

hl.(grpcol) 

;hl aponta para a tabela das 


ld 

a,#f1 

pores 

;branco (f-1 5) para cor de 


ld 

b,#08*4 

jfrente e 

preto (1 ) para a cor de 
;fundo 

;b=32 bytes a colorir 

transcorl 

call 

wtvram 

;loop para enviar 


inc 

hl 

;a cor 


djnz 

transcorl 

i 


ret 


;retorna 


;a rotina tabnomes preenche um terço da tela com espaços 
;em branco usando o caractere 4, já que este caractere 
;não foi definido, estando, portanto, em branco. Na verdade, 
;todos os caracteres na faixa de 4 a 255 estão em branco, 
pois a rotina transdes só definiu os caracteres de 0 a 3 


tabnomes 


tabnomesl 


ld 

hl.(grpnam) 

ld 

b,#00 

ld 

a, #04 

call 

wtvram 

inc 

hl 

djnz 

ret 

tabnomesl 


;hl aponta para a tab. de 
pomes 

prepara um loop com 256 
;repetições 

;a=núm. do carac. 4 (branco 
;em branco não definido) 
preenche um terço da tela 
;com espaços em branco 


;retorna 
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rdvram 



ld 

a.(versao) 

obtém a versão do MSX 


or 

a 

é MSX1? 


V 

z.rdvraml 

Sim, vai para rdvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99),a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


rdvram 1 

ld 

a,l 

informa ao 


out 

(#99),a 

VDP o endereço na 


ld 

a,h . 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99), a 



ex 

(sp),hl 

demora para 


ex 

(sp),hl 

sincronização 


in 

a, (#98) 

lê o dado na VRAM 


ret 



wtvram 





push 

af 

salva o dado a ser gravado 


ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

ó MSX1? 


jr 

z, wtvraml 

Sim, vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99), a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l 

.informa ao 


out 

(#99),a 

,VDP o endereço na 


ld 

a.h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99),a 



ex 

(sp).hl 

;demora para 


ex 

(sp).hl 

;sincronização 


pop 

af 

;recupera o dado 


out 

(#98), a 

;grava o dado 


ret 




Jabela de 32 bytes com os desenhos do radar 


desenhol 
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defb 

%00000000 


defb 

%00000100 


defb 

%00001000 


defb 

%0001 1110 


defb 

%0001 1110 


defb 

%000 11000 


defb 

%000 10100 


defb 

%000 10000 

desenho2 




defb 

%00000000 


defb 

%00111000 


defb 

%0 1000 100 


defb 

%1 001 0010 


defb 

%1 001 0010 


defb 

%0 1000 100 


defb 

%001 11000 


defb 

%000 10000 

desenho3 


defb 

%00000000 


defb 

%0 1000000 


defb 

%00 100000 


defb 

%1 11 10000 


defb 

%1 1 1 1 0000 


defb 

%001 10000 


defb 

%01010000 


defb 

%000 10000 

desenho4 


defb 

%00000000 


defb 

%001 11000 


defb 

%01 111100 


defb 

%1 1111110 


defb 

%1 1111110 


defb 

%01 111100 


defb. 

%001 11000 


defb 

%000 10000 

fim 

equ 

$ 
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Listagem em linhas DATA do código-objeto do programa para animação em tela gráfi- 
ca: 


10 FOR A%-6HD000 TO SHDOCD 
20 READ B$ 

30 POKE A%,VAL("tH"+B$) 

40 NEXT A« 

50 BSAVE "PROG18.BIN", 6HD000, SHDOCD 

100 DATA 3A,AF,FC,FE,02,C0,F3,CD,48,D0,CD,59,D0,CD, 67,D0 
110 DATA 2A, C7, F3, 11,70,00, 19, AF, CD, 8F, DO, 5F, 7B, 3C, E6, 03 
120 DATA 5F, CD, 8F, DO, CD, 32 , DO , CB, 47 , 28, 05 , CD, 3D, DO, 18, EC 
130 DATA FB, C9, DB, AA, E6,F0,F6,08, D3, AA, DB, A9, C9 , E5, 21 , 00 
140 DATA 80, 2B, 7C, B5, 20, FB, El , C9, 2A, CB, F3 , 11 , AD, DO, 06, 20 
150 DATA IA, CD, 8F, DO, 13,23, 10, F8, C9, 2 A, C9,F3,3E,F1, 06,20 
160 DATA CD, 8F, DO, 23, 10, FA, C9, 2 A, C7,F3, 06, 00, 3E, 04, CD, 8F 
170 DATA DO, 23, 10, FA, C9, 3A, 2D, 00, B7 , 28, 07 , AF, D3, 99 , 3E, 8E 
180 DATA D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99, E3, E3, DB, 98, C9, F5 
190 DATA 3A, 2D, 00, B7, 28,07, AF, D3, 99 , 3E, 8E, D3, 99, 7 D, D3, 99 
200 DATA 7C,E6,3F,F6, 40, D3, 99, E3, E3 , F1 , D3, 98, C9, 00, 04, 08 
210 DATA 1E,1E, 18, 14, 10, 00, 38, 44, 92, 92, 44, 38, 10, 00, 40, 20 
220 DATA FO, FO, 30, 50, 10, 00, 38, 7C, FE, FE, 7C, 38, 10, 00 


Listagem do programa de teste: 

10BLOADTROG18.BIN- 
20 DEFUSR-&HDOOO 
30 SCREEN 2 
40 A=USR(0) 


COMENTÁRIOS SOBRE O PROGRAMA 

QUE IMPLEMENTA A ANIMAÇÃO DE CARACTERES 

Ao executar o programa de teste, você verá a parte de cima de um pequeno radar girando no 
meio do primeiro terço da tela. Como você mesmo poderá observar, o efeito de animação ó 
provocado pela troca sucessiva do número do desenho na tabela de nomes. Agora que che- 
gamos ao fim da apresentação das rotinas para a parte de vídeo, ficou bem claro que a mais 
importante de todas as tabelas usadas pelo VDP ó a tabela de nomes, por gerenciar todas as 
demais tabelas. Se aparecerem dúvidas, leia com atenção os comentários feitos nas listagens 
dos códigos-fonte , tentando, ao mesmo tempo, fazer pequenas modificações para observar 
os novos resultados. Não tenha medo, pois a linguagem assembly não estraga o seu micro- 
computador, afinal, esta ó a linguagem natural do seu MSX. 

Terminada a parte de vídeo, vamos passar agora para o uso de interrupções e hooks no MSX. 
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Capítulo 2 


OS HOOKS 

E O INTERPRETADOR BASIC 


Neste capítulo, vamos ver um assunto que, apesar de relativamente simples, assusta mui- 
tos usuários. Os chamados hooks (ganchos) nada mais são do que desvios nas rotinas nor- 
mais da BIOS e do Interpretador BASIC. "Como assim?" Ao projetar as rotinas da BIOS e do 
Interpretador BASIC do MSX, a Microsoft, talvez baseada no sistema criado para o IBM-PC, 
adotou o sistema de hooks para todas as principais rotinas armazenadas na ROM do MSX. 
Assim sendo, quando chamamos uma dessas rotinas, como por exemplo a rotina para leitura 
do teclado, a primeira tarefa realizada pela própria rotina é fazer uma chamada (CALL, em as- 
sembly) ao hook correspondente a ela. Como a rotina de inicialização do MSX preenche to- 
dos os hooks com o byte #C9 (RET em assembly), a chamada das rotinas aos ganchos 
geralmente resulta em nada, a menos que o usuário redefina os hooks. Para cada rotina que 
disponha de um hook existe uma área de 5 bytes reservada nas variáveis do sistema. É nes- 
sa área que se situa o hook propriamente dito. Por ser uma área pequena (apenas 5 bytes), o 
seu uso fica limitado a saltos (JUMPS, em assembly) para rotinas mais complexas criadas pe- 
lo usuário. Levando em conta que a tabela de hooks se estende do endereço #FD9A ao #FFC9 
e que cada hook gasta 5 bytes, podemos contar, então, com 112 hooks para os propósitos 
mais variados. Não é o objetivo deste livro apresentar uma tabela com todos os hooks ( para 
tanto, consulte o " Livro Vermelho do MSX'), mas ensinar uma utilização mais personalizada 
do seu computador. Entre os 1 12 hooks podemos destacar três categorias: 

1. Hooks que permitem redefinir rotinas já existentes; 

2. Hooks que implementam rotinas não existentes, como por exemplo as rotinas para acesso 
ao disk drive, e; 

3. Hooks que funcionam como interrupções em 60 ciclos. 

Neste capítulo, vamos estudar os três tipos acima, começando pelo último. 

HOOKS DAS INTERRUPÇÕES 

Você já deve ter ouvido falar que o MSX apresenta uma interrupção que "varre" o seu te- 
clado 60 vezes por segundo. O nome interrupção vem do fato de que para o MSX fazer a var- 
redura do teclado, interrompe (suspende) a execução do programa principal (um programa em 
BASIC ou até em linguagem de máquina) para executar a rotina que faz a varredura. O termo 
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varredura está ligado à leitura completa do teclado para detectar a tecla ou teclas pressiona- 
das. O tempo em que a execução do programa principal permanece suspensa depende do ta- 
manho e da complexidade da rotina que a interrompeu. Diante deste argumento, você vai 
concordar que a rotina de interrupção deve ser a mais simples e menor possível, pois, caso 
contrário, teremos uma execução cada vez mais lenta do programa principal. Para entender 
como funciona uma interrupção, vejamos o seguinte exemplo: imagine que você esteja escre- 
vendo um livro no seu computador, usando um editor de textos, quando o telefone toca. Co- 
mo você não sabe se a conversa vai demorar ou não, salva o arquivo editado no disquete antes 
de atender o telefone. Feito isto, você atende o telefone e deixa o computador ligado, com o 
cursor na linha do texto em que se encontrava quando o telefone tocou e você salvou o texto 
no disquete. Podemos então dizer que o computador está à espera de que você termine a in- 
terrupção. Assim que você terminar a conversa (interrupção), retorne ao computador e conti- 
nue o seu trabalho normal. Apesar de simples, o exemplo reflete o que ocorre na CPU (unidade 
de processamento central que, no caso do MSX, é um Z80) quando se solicita uma interrupção. 
Em linhas gerais, as tarefas executadas pelo Z80, no caso de uma interrupção, são as se- 
guintes: 

1. Salvar o PC, que vem a ser um registro que aponta para o endereço da instrução sendo exe- 
cutada; 

2.Salvar todos os registros; 

3. Desviar o PC para o endereço da rotina de interrupção; 

4. Executar a rotina de interrupção; 

5. Recuperar os registros salvos e o PC, e; 

6. Retornar com a execução do programa principal a partir do endereço dado pelo PC. 


O PROGRAMA DUMP 

Apresentado o mecanismo das interrupções, vamos nos aprofundar um pouco mais no uso 
de tal facilidade no MSX. Já sabemos que as interrupções no MSX ocorrem a cada 1/60 se- 
gundos ou a cada 1 ,67 centésimos de segundo. Gomo se vê, ó um intervalo de tempo (ou tem- 
po de amostragem, para os mais técnicos) que permite um bom grau de precisão em algumas 
tarefas, como a de colocar na tela um relógio com segundos. Mas, deixemos o exemplo do 
relógio para depois, já que se trata de um exemplo clássico que todos conhecem. Que tal al- 
go mais útil para nós, programadores? Há cerca de um ano, vi um programa de Shareware 
(programas de demonstração gratuitos) para o IBM-PC que me impressionou pela simplici- 
dade e eficiência. O que esse programa faz é mostrar o conteúdo de diversas posições da 
memória numa pequena janela na tela, independentemente do programa que o micro esteja 
executando. Pelas características, fica evidente que se trata de um programa que utiliza os 
mecanismos de interrupção. Quando o vi em ação, pensei: "Eis um programa que seria útil no 
MSX". O fato de podermos tirar um raio X da memória durante a execução de programas é 
fantástico. Suponha, por exemplo, que você deseje acompanhar a evolução do stack pointer 
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(pilha) durante a execução de uma determinada rotina. Passado o entusiasmo inicial, come- 
cei a me deparar com alguns problemas, entre eles: 

1. Como simular o recurso de janelas no MSX? 

2. Como imprimir o conteúdo da memória (dump) com a rapidez necessária? 

3. Em que endereço da RAM colocar a rotina? 

O primeiro problema foi resolvido até de maneira bem simples. Levei em consideração que 
a depuração (etapa de correção de erros lógicos em programas) se faz usando a tela de tex- 
to, e que o MSX permite redefinir o tamanho da tela no que tange ao número de linhas. Diante 
disto, o primeiro problema desapareceu, pois bastava enganar o MSX a respeito do número 
de linhas da tela para simular o mecanismo da janela. "Mas, por que é tão importante simular 
o mecanismo das janelas?" Acontece que, se houver uma mistura de informações na tela, vai 
ficar extremamente difícil acompanhar tanto os resultados do programa principal como os da 
interrupção. Para evitar essa confusão, torna-se necessário dividir a tela em duas áreas: uma 
dedicada exclusivamente ao programa principal e outra dedicada exclusivamente à rotina de 
interrupção. O interpretador BASIC do MSX faz uso de uma variável do sistema chamada 
CRTCNT, que armazena o número de linhas da tela no modo texto. Ao ligar o MSX, a rotina 
de inicialização coloca nessa variável o valor 24, que corresponde ao número de linhas numa 
tela de texto. Entretanto, como a nossa rotina não vai fazer qualquer tipo de chamada às roti- 
nas na ROM do MSX, não existe tal limite para a nossa interrupção. Que podemos, então, fa- 
zer? Na época, pensei em reservar um número de linhas que fosse apenas suficiente para os 
propósitos da interrupção a ser criada. Reservei, então, 4 linhas para a apresentação, por in- 
terrupção, de uma determinada região da memória. Para reservar tal número de linhas, basta 
colocar o valor 20 na variável CRTCNT. Feito isto, a tela de texto passa a apresentar duas di- 
visões: aquela usada pelo interpretador BASIC, que vai da linha 0 à 19, e aquela usada pela 
rotina de interrupção, que vai da linha 20 à 23. Restava então resolver os 2 últimos problemas. 
O segundo problema foi resolvido empregando o acesso direto às portas do VDP para a apre- 
sentação dos resultados, e a utilização da instrução Dl (em assembly), que garante a não exe- 
cução de outras interrupções durante o funcionamento da nossa interrupção. Este último passo 
é absolutamente necessário, já que não há garantia de que a execução da nossa rotina levará 
somente 1,67 centésimos de segundo para ser executada (se bem que a nossa rotina certa- 
mente gasta muito menos tempo do que esse limite). Se, por um acaso, não fizéssemos isto, 
poderia ocorrer um pedido de interrupção durante a execução da nossa rotina, que levaria o 
Z80 a executá-la de novo, acarretando assim um "travamento" do microcomputador. O tercei- 
ro problema também foi resolvido facilmente, já que uma rotina de interrupção que se preze 
não deve ficar à mercê do uso indevido da memória RAM destinada ao BASIC. O interpreta- 
dor BASIC já deixa livres uns escassos 24Kb de memória RAM; se formos tirar mais ainda pa- 
ra armazenar as nossas rotinas, as coisas podem se complicar. O que me ocorreu, então, foi 
usar uma pequena parte daqueles 32Kb de RAM que não são usados pelo BASIC. Se você 
não está familiarizado com o mecanismo de slots do MSX, sugiro que leia algo sobre o assun- 
to no livro " Introdução ò Linguagem de Máquina para MSX", de minha autoria. Como sabe- 
mos, esses 32Kb estão localizados nas páginas 0 e 1 do slot que contém 64Kb de memória 
RAM (slot 2 no Expert e 3 no Hot-Bit). Usando essa memória para armazenar a nossa rotina 
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de interrupção, chegamos ao milagre de não gastar um byte sequer da memória RAM desti- 
nada ao BASIC. Resta-nos agora escolher o hook que será desviado para a nossa rotina. 
Existem somente dois hooks que podem ser aproveitados para interrupções em 60 ciclos; são 
eles: 

HKEYI usado pela rotina de varredura do teclado 
HTIMI usado pelo timer do MSX 


O hook HKEYI situa-se no endereço #FD9A, e o hook HTIMI no endereço #FD9F. O úni- 
co que fica realmente liberado para uso é o primeiro, já que o segundo ó usado pela interface 
de disco para parar e ligar o motor do drive. Resta-nos, portanto, saber como usar os hooks. 
A própria Microsoft sugere o seguinte uso para os cinco bytes de qualquer hook: 


Primeiro byte 

Segundo byte 
Terceiro e 
Quarto bytes 
Quinto byte 


RST #30 

Identificação do slot 

Endereço da rotina 
RET 


A instrução RST #30 nada mais ó do que um CALL #0030, só que ocupa apenas um byte, 
e não três como a instrução CALL. A rotina presente no endereço #0030 da ROM do MSX faz 
uma chamada interslots, ou seja, ativa a página de memória especificada pelo endereço da 
rotina no slot desejado, e por fim chama a rotina (CALL). Para tanto, a instrução RST #30 obtém 
o byte de identificação do slot e o endereço da rotina nos três bytes que a seguem no hook. O 
nome desta rotina, que se inicia no endereço #0030, é CALLF. Como vamos colocar a nossa 
rotina de interrupção na página 1 (o pedaço de 16Kb que se estende do endereço #4000 ao 
#7FFF) do slot que contém os 64Kb de RAM, devemos colocar os seguintes dados no hook: 


RST #30 

DEFB #02 
DEFW #4000 
RET 


se o micro for um Expert, e: 

RST #30 
DEFB #03 
DEFW #4000 
RET 


se o micro for um Hot-Bit. Como o slot da RAM pode variar de máquina para máquina, tor- 
na-se necessário fazer uma rotina que descubra o valor exato a colocar no segundo byte do 
hook. Mais uma vez, sugiro consultar a bibliografia indicada para tirar quaisquer dúvidas so- 
bre o funcionamento dos slots no MSX. Agora que já temos a base necessária, que tal pas- 
sarmos para as listagens da nossa rotina de interrupção? 
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Listagem em assembly Z-80 do código-fonte do programa para dump da memória: 

programa para fazer dump da memória 

;Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

l 

;GEN80 PROG19.BIN=PROG19.GEN 


;onde PROG19.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 

equ 

#002d 



linlen 

equ 

#f3b0 



valtyp 

equ 

#f663 



endini 

equ 

#f600 



tempo 

equ 

#f602 



txtcgp 

equ 

#f3b7 



erafnk 

equ 

#00cc 



crtcnt 

equ 

#f3b1 



hkeyi 

equ 

#fd9a 





defb 

#fe 

;simula em CP/M 



defw 

inicio 

;o cabecalho de 



defw 

inidump+fimdump-dump+1 





;um arquivo 



defw 

inicio 

;.BIN 



org 

#9000 


inicio 


di 


desabilita as interrupções 



in 

a,(#a8) 

lê a config. de slots 



ld 

e,a 

salva em e 



rrca 


prepara para ativar 



rrca 


a página 1 



or 

e 




and 

%1 1111100 

ativa a página 1 em RAM 



out 

(#a8),a 




rrca 

;descobre o slot da RAM 



rrca 





and 

#03 




ld 

(slotnewhk).a 

guarda o slot 



ld 

hl.newhook 

prepara o desvio 



ld 

de, hkeyi 

do hook 



ld 

bc,#0005 




Idir 


desvia 



ld 

hl.inidump 

prepara a transferência 
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ld 

de, dump 

;da rotina de interrupção 

ld 

bc t fimdump-dump;para o end. #4000 

inc 

bc 


Idir 


transfere 

in 

a,(#a8) 

;restabelece a configuração 

and 

%1 11 10000 

;original dos slots 

out 

(#a8),a 


ld 

a, 20 

;tira as 4 últimas linhas 

ld 

(crtcnt),a; 


ld 

a, 20 

;inicializa o tempo 

ld 

(tempo), a 


ld 

hl, #8000 

;inicializa o end. inicial 

ld 

(endini).hl 


call 

erafnk 

;apaga as teclas de função 

ei 


;habilita as interrupções 

ret 


;volta ao BASIC 


newhook 

defb 

#f7 

slotnewhk 

defb 

#00 


defw 

dump 


defb 

#c9 


inidump equ 

$ 




org 

#4000 


dump 

ld 

hl.tempo 



ld 

a.(temporeal) 

;verifica se já chegou 


inc 

a 

;ao tempo-limite 


cp 

(hl) 

> 


ld 

(temporeal).a 



ret 

nz 

;Não, volta ao interpretador 


xor 

a 

;Sim, zera a variável tempo 


ld 

(temporeal).a 



di 


;desabilita as interrupções 


ld 

a, (versão) 

;a=versão do MSX 


or 

a 

;ó igual a zero (MSX 1 )? 


jr 

z.iniciol 

;se for, vai para iniciol 


ld 

a,(linlen) 

; o MSX 2 está em 80 colunas? 


cp 

41 



\ r 

c.iniciol 

;Não, pula para iniciol 


ld 

a, 25 

;a=número de dígitos 


ld 

hl, 1600 

;hl=*20*80«1600-pos. inicial 
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V 

inicio2 


iniciol 

kJ 

a,1 1 


a=número de dígitos 



ld 

hl, 800 

hl=20*40=800«pos. inicial 

inicio2 

ld 

(posini).hl 

guarda o end. da tab. de 





nomes 



ld 

(numdigs).a 

guarda o número de dígitos 

enderdump 

ld 

de.(endini) 

obtém o end. de varredura 



ld 

hl.(posini) 

obtém o end. da tab. de nomes 



call 

setvdpwt 

prepara o VDP para escrita 



ld 

b,#04 

b=4 linhas a imprimir 

loopdumpl 

push 

bc 

salva b 



ld 

a, d 

a=2 primeiros dígs. do end. 



call 

hexa 

imprime-os 



ld 

a,e 

a=2 segundos dígs. do end. 



call 

hexa 

imprime-os 



call 

espaço 

imprime um espaço 



ld 

a.(numdigs) 

a=número de dígitos 



ld 

b.a 

b=número de dígitos 

loopdump2 

ld 

a, (de) 

obtém o byte no end. 



call 

hexa 

imprime 2 dígitos em hexa 



call 

espaço 

imprime um espaço 



inc 

de 

incrementa o ponteiro 



djnz 

loopdump2 

continua 



ld 

a,(numdigs) 

teste se impressão em 40 



cp 

12 

ou em 80 colunas 



jr 

nc,loopdump3 

Se em 80, vai para loopdump3 



ld 

a, (de) 

Se em 40, imprime o último 



call 

hexa 

dígito 

loopdump3 

inc 

de 

obtém o próximo endereço 



pop 

bc 

recupera o cont. de linhas 



djnz 

loopdumpl 

continua até terminarem as 





linhas 



ei 


habilita as interrupções 



ret 


retorna ao BASIC 


;a rotina hexa imprime um valor de 8 bits em hexadecimal 
hexa 


push de 

salva o par alterado 

ld e,a 

e«a=valora imprimir 

and #f0 

obtém os 4 bits mais altos 

rrca 

desloca-os para as posições 

rrca 

inferiores 

rrca 


rrca 


call hexal 

imprime o primeiro dígito 
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ld 

a.e 

;recupera o valor 


pop 

de 

;recupera o par alterado 


and 

#0f 

;obtém os 4 bits inferiores 

hexal cp 

#0a 


;o dígito é maior ou igual a 
;#A? 


K 

c,hexa2 

;Não, pula para hexa2 


add 

a, #07 

;Sim, adiciona #07 ao código 
;em ASCII 

hexa2 add 

a, #30 


;adiciona #30 (#30«ASCII 0) 


out 

(#98),a 

;imprime 


ret 


;retorna 


espaço 

ld 

a, #20 

;a=cód. ASCII do espaço 


out 

(#98), a 

;im prime 


ret 


;retorna 


setvdpwt 

ld 

a, (versão) 

;obtém a versão do MSX 


or 

a 

;é MSX1? 


j r 

z, wtvraml 

;Sim, vai para wtvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml ld 

a.l 


;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

f 


ret 


;retorna 

posini 

defw 

#0000 


numdigs 

defb 

#00 


temporeal 

defb 

#00 


fimdump 

equ 

$ 



Listagem em linhas DATA do código-objeto programa para dump da memória 

10 FOR A%«SH9000 TO SH90EC 
20 READ B$ 

30 POKE A%,VAL("SH"+B$) 
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40 NEXT A% 

50 BSAVE "PROG19 . BIN" , &H9000, ÍH90EC 

100 DATA F3, DB, A8, 5F, 0F, OF, B3, E6, FC, D3, A8 , OF, OF, E6, 03, 32 
110 DATA 45 ,90,21,44, 90,11, 9A, FD, 01 , 05, 00 , ED, BO, 21, 49, 90 
120 DATA 11 , 00, 40, 01, A2 ,00, 03, ED, BO, DB, A8 , E6, FO, D3, A8, 3E 
130 DATA 14,32, BI , F3, 3E, 14, 32, 02, F6, 21, 00, 80,22, 00, F6, CD 
140 DATA CC, 00, FB, C9, F7, 00, 00, 40, C9 , 21 , 02 , F6, 3A, Al ,40, 3C 
150 DATA BE, 32, Al ,40, CO, AF, 32 , Al, 40 , F3, 3A, 2D, 00 , B7, 28, OE 
160 DATA 3A, BO, F3 , FE, 29,38, 07 , 3E, 19, 21, 40, 06, 18, 05, 3E, OB 
170 DATA 21,20, 03,22, 9E, 40, 32, AO, 40, ED, 5B, 00,F6,2A, 9E, 40 
180 DATA CD, 86, 40, 06, 04, C5,7A, CD, 67,40, 7B, CD, 67, 40, CD, 81 
190 DATA 40, 3A, AO, 40, 47, IA, CD, 67, 40, CD, 81, 40, 13, 10, F6, 3A 
200 DATA AO, 40, FE, OC, 30, 04, IA, CD, 67, 4 0, 13, Cl, 10, D7, FB, C9 
210 DATA D5, 5F, E6, FO, OF, OF, OF, OF, CD, 76, 40 , 7B, Dl , E6, OF, FE 
220 DATA OA, 38, 02, C6, 07, C6, 30, D3, 98, C9, 3E, 20, D3, 98, C9, 3A 
230 DATA 2D, 00, B7 ,28, 07 , AF, D3, 99, 3E, 8E, D3 , 99, 7D, D3 , 99, 7C 
240 DATA E6, 3F,F6, 40, D3, 99, C9, 00, 00, 00, 00, 00, 00 


Listagem do programa de teste: 

10 BLOAD"PROG19.BIN",R 

20 POKE &HF602,15:REM DEFINE UM NOVO INTERVALO (25 CENTÉSIMOS) 

30 POKE &HF600,&H80:POKE &HF601,&H80:REM DEFINE END. INICIAL 
40 FOR A%-0 TO 5000 
50 NEXT 

COMENTÁRIOS SOBRE O PROGRAMA DVMP 

Se você já tem alguma prática com o assembly e com o mecanismo de slots, não deve ter 
sentido dificuldade em acompanhar a listagem do código-fonte. Talvez, o fato mais estranho 
seja a utilização de dois ORGs. Esta necessidade se deve ao fato de que o programa 
PROG19.BIN terá de ser carregado obrigatoriamente na memória RAM do BASIC, pois o co- 
mando BLOAD só consegue carregar arquivos nessa área (entre os endereços #8000 e 
#E100, se você estiver usando apenas um drive lógico). Assim sendo, temos de colocar no 
início uma rotina que faça os ajustes necessários para transferir a nossa rotina para o endereço 
desejado, além de desviar o hook HKEYI. Coloquei, então, essa rotina a partir da posição 
#9000 (você pode alterá-la), mas, como a rotina de interrupção será deslocada para o endereço 
#4000, tive de colocar um segundo ORG para que os deslocamentos relativos à rotina de in- 
terrupção se fizessem para os endereços corretos. Este macete vale para todas as ocasiões 
em que você tenha de carregar um programa numa determinada área e, depois, transferi-lo 
para a posição correta de execução. Como você vê, não existe grande mistério. 

Ao executar o programa de teste, você verá que a linha 20 define um intervalo seguro de 
25 centésimos (15/60). Digo seguro porque ó um intervalo pequeno o suficiente para acom- 
panhar a evolução das modificações feitas em RAM e ao mesmo tempo grande de modo que 
não trava o micro. Na linha 30, temos a definição do endereço inicial do dump que, no caso, ó 
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#8000. As linhas 40 e 50 são apenas uma pequena demonstração do que a nossa interrupção 
pode fazer. Você já deve saber que todo o programa em BASIC (como a listagem do progra- 
ma de teste) termina com uma seqüência de três bytes iguais a #00. Após esses três bytes, 
começa a área das variáveis inteiras do BASIC, com cada variável ocupando 5 bytes: 

Primeiro byte : Identificação (#02) 

Segundo e 

Terceiro bytes Nome da variável 

Quarto e 

Quinto bytes Valor da variável na forma LSB e 

MSB 

Ao executar o programa de teste acima, você verá no final da primeira linha (se estiver no 
modo de 80 colunas do MSX2) ou no final da segunda linha e início da terceira (se você esti- 
ver no modo de 40 colunas de qualquer MSX) a seguinte seqüência de bytes escritos na base 
hexadecimal: 

00 00 00 02 41 00 89 13 

Se você reparar, durante a execução do programa, os dois últimos bytes acima apresen- 
tam uma alteração constante de valores. O valor 89 13 é o que aparece por último quando a 
execução do programa termina. "Mas, o que vêm a ser esses bytes?" Os três primeiros bytes 
você já sabe que são o indicador de término do programa em BASIC, o byte 02 ó o indicador 
de variável inteira, o byte 41 é o código em ASCII da letra A, que vem a ser o nome da nossa 
variável, o byte 00 após o 41 seria o segundo caractere do nome da variável, já que o MSX 
permite que o nome de cada variável seja composto por até dois caracteres e, por fim, os dois 
últimos bytes correspondem ao valor da variável A. Dá para perceber que a nossa rotina de 
interrupção é bastante rápida, já que consegue captar a atualização do valor da variável A fei- 
ta pelo comando FOR NEXT do BASIC. Vamos, então, passar para outro exemplo. 


O PROGRAMA PARA ROTAÇÃO POR INTERRUPÇÃO 

No início de 1988, elaborei um conjunto de programas utilitários para o MSX-DOS, que re- 
cebeu o nome de MSX-DOS Tools Nacional. Uma das rotinas que mais chamava a atenção 
colocava o meu nome na última linha da tela e fazia tal linha girar para a esquerda num inter- 
valo de tempo constante. Agora, você já sabe que usei uma interrupção para tal efeito. O que 
vamos ver aqui nada mais é do que uma combinação da rotina acima com a rotina de rotação 
da tela para a esquerda, apresentada no Capítulo 1. O programa que vamos ver não coloca 
qualquer mensagem na última linha da tela, de modo que sugiro a você usar um artifício se- 
melhante ao apresentado na listagem do programa de teste. 
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Listagem em assembly Z-80 do código-fonte do programa para rotar somente a última 
linha da tela para a esquerda: 

programa para rotar a última linha da tela 

;Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

•GEN80 PROG20.BIN=PROG20.GEN 


;onde PROG20.GEN ó o nome do arquivo-texto com esta 
;listagem 


versão 

equ 

#002d 


linlen 

equ 

#f3b0 


txtnam 

equ 

#f3b3 


valtyp 

equ 

#1663 


argusr 

equ 

#f7f8 


txtcgp 

equ 

#f3b7 


tempo 

equ 

#f600 


erafnk 

equ 

#00cc 


crtcnt 

equ 

#f3b1 


hkeyi 

equ 

#fd9a 




defb #fe 

simula em CP/M 



defw inicio 

o cabecalho de 



defw inirota+fimrota-rotaesq+1 



;um arquivo 



defw inicio 

.BIN 


org 

#9000 


inicio 





di 


desabilita as interrupções 


in 

a,(#a8) 

lê a config. de slots 


ld 

e,a 

salva em e 


rrca 


prepara para ativar 


rrca 


a página 1 


or 

e 



and 

%1 1111100 

ativa a página 1 em RAM 


out 

(#a8),a 



rrca 


descobre o slot da RAM 


rrca 




and 

#03 



ld 

(slotnewhk).a 

guarda o slot 


ld 

hl.newhook 

prepara o desvio 


ld 

de.hkeyi 

do hook 


ld 

bc,#0005 
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Idir 


;desvia 

ld 

hl.inirota 

jprepara a transferência 

ld 

de.rotaesq 

;da rotina de interrupção 

ld 

bc.fi mrota-rotaesq 

inc 

bc 


Idir 


jtransfere 

in 

a,(#a8) 

;restabelece a configuração 

and 

%1 1 1 1 0000 

.original dos slots 

out 

(#a8),a 

; 

ld 

a,23 

;tira a última linha 

ld 

(crtcnt).a; 


ld 

a, 20 

;inicializa o tempo 

ld 

(tempo), a 


call 

erafnk 

;apaga as teclas de função 

ei 


;habilita as interrupções 

ret 


;volta ao BASIC 


newhook 

defb 

#f7 

slotnewhk 

defb 

#00 


defw 

rotaesq 


defb 

#c9 


inirota 

equ 

$ 


org 

#4000 

rotaesq 

ld 

a.(temporeal) 


ld 

hl, tempo 


inc 

a 


ld 

(temporeal).a 


cp 

(hl) 


ret 

nz 


di 



xor 

a 


ld 

(temporeal).a 


ld 

a, (versão) 


or 

a 


k 

z, rotaesql 


ld 

a.(linlen) 


cp 

41 


k 

c, rotaesql 


ld 

a, 80 


k 

rotaesq2 


;verifica se o tempo-limite 
;foi atingido ou não 


;Não, volta para o BASIC 
;desabilita as interrupções 
;zera a variável contadora 

;a=versão do MSX 
;é igual a zero (MSX 1)? 

;Sim, vai para rotaesql 
;o MSX 2 está em 80 colunas? 

Não, pula para rotaesql 
se estiver a=80 colunas 
pula para rotaesq2 por ser MSX 2 
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rotaesql ld 

a, 40 


;a=40 colunas 

rotaesq2 ld 

(numcol),a 

;coloca o núm. de colunas em 




;numcol 


ld 

hl.(txtnam) 

;hl=end. tabela de nomes 


ld 

a.(numcol) 

;a=núm. de colunas 


ld 

b,23 

;b=núm. da últ. linha 


ld 

e.a 

;de=número de colunas 


ld 

d, #00 

;calcula o end. da última 

toopl add 

hl.de 


;linha na tabela de nomes 


djnz 

loopl 



call 

setvdprd 

prepara o VDP para leitura 


ld 

a.(numcol) 

;a«núm. de colunas 


push 

hl 

;salva hl 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

b.a 

;b=núm. de colunas 


call 

lelinha 

;lê uma linha 


ld 

a,(numcol) 

;a=núm. de colunas 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

e,a 

;de=núm. de colunas 


ld 

d, #00 



ld 

a, (hl) 

;a=primeiro carac. da linha 


add 

hl.de 

;hl=aponta para o fim da 
;linha+1 


ld 

(hl), a 

;coloca o prim. carac. na últ. 
;pos. 


pop 

hl 

;recupera hl 


call 

setvdpwt 

;prepara o VDP para escrita 


ld 

hl,bufferlinha+1 

;hl aponta para o buffer+1 


ld 

a.(numcol) 

;a=núm. de colunas 


ld 

b.a 

;b=núm. de colunas 


call 

esclinha 

;envia a linha já rotada 


ei 


;habilita as interrupções 


ret 


;retorna ao BASIC 


lelinha 


in 

a, (#98) 

;lê o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

ret 

lelinha 

prepara a próxima leitura 
;retorna 

esclinha 


ld 

a, (hl) 

;lê o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 
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djnz esclinha prepara a próxima escrita 

ret ;retorna 


setvdprd 


ld a, (versão) 

obtém a versão do MSX 

or a 

é MSX1? 

jr z, rdvraml 

Sim, vai para rdvraml 

xor a 

Não, inicializa o VDP 

out (#99), a 

do MSX2 

ld a,#8e 


out (#99), a 


rdvraml ld a,l 

informa ao 

out (#99), a 

VDP o endereço na 

ld a,h 

VRAM onde será 

and #3f 

lido o dado 

out (#99), a 


ret 

retorna 

setvdpwt 


ld a, (versão) 

obtém a versão do MSX 

or a 

é MSX1? 

jr z.wtvraml 

Sim, vai para wtvraml 

xor a 

Não, inicializa o VDP 

out (#99), a 

do MSX2 

ld a,#8e 


out (#99), a 


wtvraml ld a,l 

informa ao 

out (#99), a 

VDP o endereço na 

1 ld a,h 

VRAM onde o 

and #3f 

dado será 

or #40 

gravado 

out (#99), a 


ret 

retorna 


temporeal 

defb 

#00 

bufferlinha 

defs 

81 

numcol 

defb 

#00 

fimrota 

equ 

$ 
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Listagem em linhas DATA do código-objeto do programa para rotar somente a última 
linha da tela para a esquerda: 

10 FOR A%=4H9000 TO ÍH912F 
20 READ B$ 

30 POKE A% , VAL (" tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG20 . BIN" , &H9000 , &H912F 

100 DATA F3, DB, A8, 5F, OF, OF, B3, E6, FC, D3, A8, 0F, OF, E6, 03, 32 
110 DATA 3C, 90, 21, 3B, 90, 11, 9A,FD, 01, 05, 00, ED, B0,21 f 40, 90 
120 DATA 11, 00, 40, 01,EE,00, 03, ED, B0, DB, A8, E6, F0, D3, A8, 3E 
130 DATA 17, 32, B1,F3,3E, 14, 32, 00, F6,FB,C9,F7, 00,00,40,C9 
140 DATA 3A, 9B, 40,21, 00, F6, 3C, 32, 9B, 40, BE, C0, F3, AF, 32, 9B 
150 DATA 40, 3A, 2D, 00, B7 , 28, 0B, 3A, B0 , F3, FE, 29, 38, 04, 3E, 50 
160 DATA 18, 02, 3E, 28, 32, ED, 40, 2A, B3,F3, 3A,ED, 40, 06, 17, 5F 
170 DATA 16, 00, 19, 10,FD,CD, 6D, 40, 3A,ED, 40, E5, 21, 9C, 40, 47 
180 DATA CD, 5F, 40, 3A, ED, 40, 21, 9C, 40, 5F, 16, 00, 7E, 19, 77, El 
190 DATA CD, 83, 40,21, 9D,40,3A,ED, 40, 47, CD, 66, 40,FB,C9,DB 
200 DATA 98 , 77 , 23 ,10, FA, C9, 7E, D3, 98,23,10, FA, C9 , 3A, 2D, 00 
210 DATA B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F 
220 DATA D3, 99, C9, 3A, 2D, 00, B7,28, 07, AF, D3, 99, 3E, 8E, D3, 99 
230 DATA 7D,D3, 99, 7C, E6, 3F, F6, 40, D3, 99, C9, 00, 00, 00, 00, 00 
240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
260 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
290 DATA 00,00,00 


Listagem do programa de teste: 

10 KEYOFF 

20 IF (PEEK (&HF3B0) >40) THEN CL%=80 ELSE CL%=40 
30 A$="Programa de demonstração" 

40 FOR A%=0 TO LEN(A$)-1 

50 VPOKE (23*CL%+A%),ASC(MID$(A$,A%+1,1 )) 

60 NEXT A% 

70 BLOAD-PROG20.BIN", R 

COMENTÁRIOS SOBRE 

O PROGRAMA PARA ROTAÇÃO POR INTERRUPÇÃO 

Se, por um acaso, você não gostou da velocidade de rotação da última linha, tente alterar 
o valor em #F600. Antes de fazer tal alteração, convém ficar ciente de que valores abaixo de 
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8 podem congelar o seu micro,devido à "lentidão", não da nossa rotina, mas da rotina RST #30 
que usamos para desviar o hook. No meu ponto de vista, o comando abaixo imprimirá uma ve- 
locidade bem razoável: 

POKE &HF600.10 

Entre com o comando acima após o interpretador BASIC exibir a mensagem Ok, quando 
terminar a execução do programa de teste. Infelizmente, temos um problema: não podemos 
usar o comando CLS do BASIC para apagar a tela, já que este comando ignora o valor colo- 
cado em CRTCNT. Não adianta enganar o interpretador BASIC no que diz respeito ao núme- 
ro de linhas na tela, no caso do comando CLS. Observe que o artifício de se colocar um valor 
menor que 24 na variável CRTCNT ó válido para a exibição das teclas de funções e para os 
comandos de edição (seta para baixo, seta para a esquerda, etc), embora não o seja para o 
comando CLS. Como você pode perceber, temos aí um bug (situação de erro não prevista) no 
projeto do MSX. Ainda neste capítulo, vamos aprender como desviar o interpretador de erros 
(através do respectivo hook) para implementarmos novos comandos no interpretador BASIC. 
Nesse momento, vamos criar o comando CLRSCR, que apagará a tela de acordo com um de- 
terminado argumento, respeitando inclusive o número de linhas colocado em CRTCNT. Va- 
mos ver, agora, um efeito igualmente interessante. 


O PROGRAMA PARA 

ANIMAÇÃO GRÁFICA POR INTERRUPÇÃO 

No primeiro capítulo, cheguei a mencionar que se poderia obter efeitos de animação inte- 
ressantes usando-se as interrupções. Talvez você fique surpreso ao saber que os jogos da fa- 
mosa Konami são controlados por uma interrupção, ou seja, a parte do programa que lê os 
joysticks/teclado e toma as ações cabíveis é resultado de um desvio do hook HKEYI. Isto tem 
certa lógica, pois, como sabemos, as colisões de sprites (leia-se colisão de aviões com mísseis, 
etc) são testadas a cada ciclo de 60 Hz, exatamente na mesma freqüência em que são ativa- 
das as rotinas de interrupção. Se levarmos em conta que a interrupção de 60 Hz é gerada pe- 
lo VDP (processador de vídeo), temos então um perfeito sincronismo entre o teste da colisão 
de sprites e o início da execução das rotinas de interrupção. O exemplo que vamos ver nada 
mais ó do que a conjunção de dois exemplos do Capítulo 1 : o programa para movimentação 
de sprites e o programa para animação de um pequeno radar. Neste caso, a rotina para a qual 
será desviado o hook será a de animação do radar. Você vai perceber que se consegue um 
efeito bem interessante. Vamos, então, às listagens: 
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Listagem em assembly Z-80 do código-fonte do programa para fazer animação por In- 
terrupção: 

programa para movimentar sprites pela tela 

;Compiiar com o programa GEN80.COM usando a seguinte 

;sintaxe: 


;GEN80 PROG21 .BIN=PROG21 .GEN 

t 

;onde PROG21.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 

equ 

#002d 


kilbuf 

equ 

#0156 


grpnam 

equ 

#f3c7 


grpcol 

equ 

#f3c9 


grpcgp 

equ 

#f3cb 


grppat 

equ 

#f3cf 


grpatr 

equ 

#f3cd 


scrmod 

equ 

#fcaf 


hkeyi 

equ 

#fd9a 



defb 

#fe 

;simula em CP/M 


defw 

inicio 

;o cabecalho de 


defw 

fim 

;um arquivo 


defw 

inicio 

;.BIN 


org 

#d000 


inicio 

ld 

a.(scrmod) 

;o MSX está no modo 


cp 

#02 

;gráfico? 


ret 

nz 

;Não, retorna ao BASIC 


ld 

hl, (grppat) 

;hl aponta para a tab. de 
padrões 


ld 

de.desenho 

;de aponta para o 
;desenho 


ld 

b,#08 

;b=8 bytes que formam o 
;desenho 

loopl 

ld 

a, (de) 

;este loop envia o 
;desenho 


call 

wtvram 

;para a tabelado 
padrões 


inc 

de 

;dos sprites na RAM de 
;vídeo 


inc 

hl 

;(VRAM) 


djnz 

loopl 

; 
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ld 

hl.(grpatr) 

;hl aponta para a tab. 
;de atributos 


ld 

de, atributos 

;de aponta para os 
;atributos 


ld 

b,#04 

;b=4=núm. de bytes dos 
-.atributos 

loop2 

ld 

a, (de) 

;este loop envia os 
;atributos 


call 

wtvram 

;para a tabela de 
jatributos 


inc 

de 

;dos sprites na RAM de 
;vídeo 


inc 

hl 

;(VRAM) 


djnz 

loop2 



call 

transdes 

;chama a rotina transdes 


call 

transcor 

;chama a rotina transcor 


call 

tabnomes 

;chama a rotina tabnomes 


di 


;desabilita as 
;interrupções 


ld 

hl.(grpnam) 

;hl aponta para a tab. 
;de nomes 


ld 

de, 32*3+1 6 

;de=>Y=3 X=16 


add 

hl.de 

;hl aponta para a 
;posição (X,Y) 


ld 

(posicao).hl 

;salva a posição de 
;escrita 


ld 

a, 15 

;temporiza em 0.25 
;segundo 


ld 

(tempolim),a 



xor 

a 

;guarda o caractere 
;atual 


ld 

(desatual).a 



ld 

(tempo), a 

;zera a variável tempo 


ld 

hl.novohook 

prepara o desvio do 
;hook 


ld 

de.hkeyi 



ld 

bc,#0005 



Idir 




ei 


;habilita as 
;interrupções 

loopprin 

call 

letecla 

;lê as teclas do cursor 
;e a barra de espaço 


push 

af 

;salva o valor lido 


bit 

7, a 

;a seta para direita foi 
pressionada? 
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call 

z, direita 

pop 

af 

push 

af 

bit 

4 t a 

call 

z, esquerda 

pop 

af 

push 

af 

bit 

5, a 

call 

z.cima 

pop 

af 

push 

af 

bit 

6, a 

call 

z.baixo 

pop 

af 

bit 

0,a 

V 

z.basic 

call 

espera 

jr 

loopprin 

di 

ld 

hl.hkeyi 

ld 

de,hkeyi+#01 

ld 

(hl),#c9 

ld 

Idir 

bc,#0004 

ei 


call 

ret 

kilbuf 


;Sim, chama a rotina 
;direita 

;recupera o valor lido 
;torna a salvar 
;a seta para esquerda 
;foi pressionada? 

;Sim, chama a rotina 
;esquerda 

;recupera o valor lido 
;torna a salvar 
;a seta para cima foi 
pressionada? 

;Sim, chama a rotina 
;cima 

;recupera o valor lido 
;torna a salvar 
;a seta para baixo foi 
pressionada? 

;Sim, chama a rotina 
;baixo 

;recupera o valor lido 
;a barra de espaço foi 
pressionada? 

;Sim, prepara a volta ao 
;BASIC 

;Não, espera para 
;diminuir a 

;velocidade do movimento 
; fecha o loop 


;desabilita as 
;interrupções 
;desfaz o desvio do 
;hook. 

;Etapa necessária porque 
;o MSX retorna para o 
;modo texto assim que 
germinar 

;o programa em BASIC. 
;habilita as 
;interrupções 
;limpa o buffer do 
teclado 

;retorna ao BASIC 
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;a rotina radar é a responsável pela animação do radar 
;usando o desvio da interrupção HKEYI 


radar 


ld hl.tempolim 

ld a, (tempo) 

inc a 

ld (tempo), a 

cp (hl) 

ret nz 

di 

xor a 

ld (tempo), a 

ld hl.(posicao) 

ld a.(desatual) 

and #03 

call wtvram 

inc a 

ld (desatual).a 

ei 

ret 


;hl=>variável tempo- 
;limite 

;a=tempo atual 
[incrementa tempo atual 
;guarda o novo valor 
[tempo atual=tempo- 
;limite? 

;Não, volta sem animação 

;Sim, desabil, as 

[interrupções 

;zera a var. tempo atual 

;obtém a pos. de escrita 
;obtém o núm. do desenho 
[garante estar entre 0 e 
;3 

;escreve o caractere 
[incrementa o núm do 
[caractere 

[guarda para a próx. 
[interrupção 
[habilita as 
[interrupções 
[retorna 


novohook 


defb 

#c3 

[JUMP 

defw 

radar 

[chama a rotina radar 

defb 

#c9 

[RET 

defb 

#c9 

[RET 


letecla 


in 

a,(#aa) 

[prepara o ppi para ler 

and 

#f0 

;a linha (#08) com as 

or 

#08 

[informações sobre as 

out 

(#aa),a 

[teclas do cursor 

in 

a,(#a9) 

;lê a coluna selecionada 

ret 


;volta 



direita 


esquerda 


cima 


cimal 

cima2 

baixo 
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ld hl.(grpatr) 

inc hl 

call rdvram 

inc a 

call wtvram 

ret 


;hl aponta para o 
;atributo X 
;na VRAM 

;lê a posição x do 
jsprite 

;incrementa-a 
jinforma ao VDP a nova 
;posição 
jretorna 


ld hl.(grpatr) 

inc hl 

call rdvram 

dec a 

call wtvram 

ret 


;hl aponta para o 
;atributo X 
;na VRAM 

;lè a posição x do 
;sprite 

;decrementa-a 
;informa ao VDP a nova 
jposição 
jretorna 


ld hl.(grpatr) 

call rdvram 

or a 

jr z, cimal 

dec a 

jr cima2 

ld a,191 

call wtvram 

ret 


;hl aponta para o 

jatributo Y 

;na VRAM 

;lê a posição y do 

jsprite 

;é zero? 

;Sim, vai para cimal 
;Não, decrementa y (sobe 
;o sprite) 

;vai para cima2 
jcoloca o sprite na 
júltima linha 

jinforma ao VDP a nova 

jposição 

jretorna 


ld hl.(grpatr) 


;hl aponta para o 
jatributo Y 
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call 

rdvram 

;na VRAM 

;lê a posição y do 


cp 

191 

;sprite 

;já está na última 


jr 

z.baixol 

;linha? 

;Sim, vai para baixol 


inc 

a 

;Não, incrementa y 


jr 

baixo2 

;(desce o sprite) 
;vai para baixo2 

baixo 1 

xor 

a 

;a=aO=primeira linha 

baixo2 

call 

wtvram 

;informa ao VDP a nova 


ret 


;posição 

jretorna 


espera 

ld 

hl, #1000 

provoca um retardo 

loopesp 

dec 

hl 

baseado em sucessivos 


ld 

a,h 

decrementos no valor de 


or 

1 

hl 


jr 

nz, loopesp 



ret 




;a rotina transdes transfere os desenhos do radar para a 
itabela de padrões 


transdes 

ld 

hl.(grpcgp) 

;hl aponta para a tab. 


ld 

de.desenhol 

;de padrões 

;de aponta para o desenhol 


ld 

b,#08*4 

;b=8 bytes por desenho‘4 

transdes 1 

ld 

a, (de) 

;desenhos 
;este loop transfere 


call 

wtvram 

;todos os 


inc 

de 

;desenhos para a RAM 


inc 

hl 

;de vídeo 


djnz 

transdesl 

9 


ret 


;retorna 


;a rotina transcor fornece a cor dos 4 desenhos 
;(caracteres) transferidos para a tabela de padrões 


transcor 
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ld 

hl.(grpcol) 

;hl aponta para a tabela 
;das cores 


ld 

a,#f1 

;branco (f=15) para a cor 
;de frente e 

;preto (1 ) para a cor de 
;fundo 


ld 

b,#08*4 

;b=32 bytes a colorir 

transcorl 

call 

wtvram 

;loop para enviar 


inc 

hl 

;a cor 


djnz 

transcorl 

i 


ret 


;retorna 

;a rotina tabnomes limpa as 4 primeiras posições 

da tabela 

;de nomes para que os 4 desenhos do radar não apareçam 

tabnomes 

ld 

hl.(grpnam) 

;hl aponta para a tab. de 




;nomes 


ld 

a, #04 

;a=núm. do carac. em 
;branco 


ld 

b,a 


tabnomesl 

call 

wtvram 

;limpa as 4 primeiras 


inc 

hl 

;posições da tab. de 
;nomes 


djnz 

tabnomesl 



ret 


;retorna 


rdvram 

di 



ld 

a, (versão) 


or 

a 


jr 

z, rdvraml 


xor 

a 


out 

(#99), a 


ld 

a,#8e 


out 

(#99),a 

rdvraml 

ld 

a.l 


out 

(#99),a 


ld 

a.h 


and 

#3f 


out 

(#99), a 


ex 

(sp).hl 


;desabilita as 

;interrupções 

;obtém a versão do MSX 

;é MSX1? 

;Sim, vai para rdvraml 
;Náo, inicializa o VDP 
;do MSX2 


;informa ao 
;VDP o endereço na 
;VRAM onde será 
;lido o dado 


;demora para 
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ex 

(sp).hl 

;sincronização 


in 

a,(#98) 

;lô o dado na VRAM 

wtvram 

ei 

ret 

di 

push 

af 

;habilita as 
;interrupções 

;desabilita as 
;interrupções 
;salva o dado a ser 


ld 

a, (versão) 

;gravado 

;obtém a versão do MSX 


or 

a 

;é MSX1? 


jr 

z, wtvraml 

;Sim, vai para wtvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 

wtvraml 

ld 

out 

ld 

a,#8e 

(#99),a 

a.l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

! 


ex 

(sp).hl 

;demora para 


ex 

(sp).hl 

;sincronização 


pop 

af 

;recupera o dado 


out 

(#98), a 

;grava o dado 


ei 

ret 


;habilita as 
;interrupções 


;tabela de 8 bytes com o desenho do boneco 

desenho 

defb 

%001 11000 

defb 

%00101000 

defb 

%00111000 

defb 

%000 10000 

defb 

%00111000 

defb 

%01010100 

defb 

%00101000 

defb 

%01000100 
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gabela dos atributos do sprite 


atributos 

y 

defb 

86 

;coordenadas do ponto 

X 

defb 

128 

;centraldatela 

modelo 

defb 

0 

primeiro plano 

cor 

defb 

15 

;cor branca para o 


;sprite 


gabela de 32 bytes com os desenhos do radar 


desenhol 


defb 

%00000000 


defb 

%00000100 


defb 

%00001000 


defb 

%0001 1110 


defb 

%0001 1110 


defb 

%00011000 


defb 

%00010100 


defb 

%000 10000 

desenho2 


defb 

%00000000 


defb 

%00111000 


defb 

%01000100 


defb 

%1 001 0010 


defb 

%1 001 0010 


defb 

%01000100 


defb 

%00111000 


defb 

%000 10000 

desenho3 


defb 

%00000000 


defb 

%0 1000000 


defb 

%00 100000 


defb 

%1 11 10000 


defb 

%1 11 10000 


defb 

%001 10000 


defb 

%01010000 


defb 

%000 10000 

desenhc4 


defb 

%00000000 


defb 

%00111000 


defb 

°/ o 01 111100 


defb 

°/ o 1 1 1 1 1 1 1 0 
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defb 

%1 1111110 

defb 

%01 111100 

defb 

%001 11000 

defb 

%000 10000 


posicao 

defw 

#00 

desatual 

defb 

#00 

tempolim 

defb 

#00 

tempo 

defb 

#00 

fim 

equ 

$ 


Listagem em linhas DATA do código-objeto do programa para fazer animação por Inter- 
rupção: 

10 FOR A%=4HD000 TO 4HD19D 
20 READ B$ 

30 POKE A%, VAL ("SH"+B$) 

40 NEXT A% 

50 BSAVE "PR0G21 . BIN”, 6HD000, 6HD19D 

100 DATA 3A, AF , FC, FE, 02, C0, 2A, CF, F3, 11, 6C, Dl, 06,08, IA, CD 
110 DATA 4C,D1, 13,23, 10,F8,2A, CD, F3, 11, 74, Dl, 06,04, IA, CD 
120 DATA 4C, Dl , 13,23, 10, F8, CD, 04, Dl, CD, 15, Dl, CD, 23, Dl, F3 
130 DATA 2A, C7 ,F3, 11, 70, 00, 19, 22, 98, Dl, 3E, 0F, 32, 9B, Dl, AF 
140 DATA 32 , 9A, Dl , 32, 9C, Dl, 21 , AF, D0, 11, 9A, FD, 01, 05, 00, ED 
150 DATA B0, FB, CD, B4, D0, F5,CB,7F, CC, BF, D0, Fl, F5, CB, 67, CC 
160 DATA CB, D0, Fl , F5, CB, 6F , CC, D7, D0, Fl, F5, CB, 77 , CC, E9, D0 
170 DATA Fl , CB, 47,28, 05, CD, FB, D0, 18, D8, F3, 21, 9A, FD, 11, 9B 
180 DATA FD, 36, C9, 01, 04, 00, ED, B0, FB, CD, 56, 01, C9, 21, 9B, Dl 
190 DATA 3A, 9C, Dl , 3C, 32 , 9C, Dl , BE, C0, F3, AF, 32, 9C, Dl, 2A, 98 
200 DATA D1,3A, 9A, Dl, E6, 03, CD, 4C, Dl , 3C, 32 , 9A, Dl , FB, C9, C3 
210 DATA 8D,D0,C9,C9,DB,AA,E6,F0,F6,08,D3,AA,DB,A9,C9,2A 
220 DATA CD, F3, 23, CD, 30, Dl , 3C, CD, 4C, Dl, C9, 2A, CD, F3, 23, CD 
230 DATA 30 , Dl, 3D, CD, 4C, Dl, C9, 2A, CD, F3, CD, 30, Dl, B7, 28, 03 
240 DATA 3D, 18, 02 , 3E, BF , CD, 4C, Dl, C9, 2A, CD, F3, CD, 30, Dl, FE 
250 DATA BF , 28, 03, 3C, 18,01, AF, CD, 4C, Dl, C9, 21, 00, 10, 2B, 7C 
260 DATA B5, 20, FB, C9, 2A, CB, F3, 11, 78, Dl, 06,20, IA, CD, 4C, Dl 
270 DATA 13,23, 10, F8, C9, 2A, C9, F3, 3E, Fl, 06,20, CD, 4C, Dl, 23 
280 DATA 10, FA, C9, 2A, C7 , F3, 3E, 04, 47, CD, 4C, Dl, 23, 10, FA, C9 
290 DATA F3, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99, 7D, D3 
300 DATA 99, 7C, E6, 3F , D3, 99, E3, E3, DB, 98, FB, C9, F3, F5, 3A, 2D 
310 DATA 00, B7 , 28, 07, AF , D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6 
320 DATA 3F , F6, 40, D3, 99, E3, E3 , Fl, D3, 98, FB, C9, 38 , 28, 38, 10 
330 DATA 38, 54, 28, 44, 56, 80, 00, 0F, 00, 04, 08, 1E,1E, 18, 14, 10 
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340 DATA 00, 38, 44, 92, 92, 44, 38, 10, 00, 40, 20,F0,F0, 30, 50, 10 
350 DATA 00, 38, 7C, FE, FE, 70,38,10,00, 00, 00, 00, 00, 00 


Listagem do programa de teste: 

100 BLOAD-PROG21.BIN- 
110 SCREEN 2 

120 UNE (10,10)-(40 1 40) 1 15,BF 
130 UNE (215,150)-(245,180),12,BF 
140 UNE (21 5,1 0)-(245,40),1 3,BF 
150 UNE (10,150)-(40,180),14,BF 
160 DEFUSR-&HD000 
170 A-USR(O) 


COMENTÁRIOS SOBRE O PROGRAMA 

PARA ANIMAÇÃO GRÁFICA POR INTERRUPÇÃO 

Embora o programa acima seja basicamente o resultado da união de dois programas do 
Capítulo 1, temos aqui algumas diferenças: 

1. A rotina para animação do radar já não é feita pelo programa em si, mas sim por uma rotina 
de interrupção. 

2. As rotinas de acesso ao vídeo e para leitura direta da linha do teclado, que fornece o status 
das teclas de movimentação do cursor e da barra de espaço, não desativam as interrupções 
de forma permanente. Isto ó absolutamente necessário para que haja uma animação do ra- 
dar, pois se as interrupções forem permanentemente desabilitadas (Dl em assembly), a rotina 
de interrupção que faz a animação do radar não será ativada. 

3.0 hook da interrupção foi desviado usando-se a instrução JUMP, e não a RST #30, como 
recomenda a Microsoft. Neste ponto, houve apenas a escolha de uma alternativa mais sim- 
ples e rápida. Acontece que a rotina ativada pela instrução RST #30 ó destinada basicamente 
à chamada de rotinas em slots/páginas diferentes, o que evidentemente não é o nosso caso, 
pois a nossa rotina ocupa a memória RAM destinada ao BASIC, não havendo, portanto, qual- 
quer necessidade de chamadas interslots. Se a nossa rotina se iniciasse, digamos, no en- 
dereço #4000, haveria a necessidade de usar a instrução RST #30 para ativar a nossa 
interrupção (como usamos no primeiro e segundo exemplos), já que o endereço #4000 está 
fora da RAM destinada ao BASIC. 

4.Neste exemplo, o desvio do hook ó destruído na volta ao BASIC. Antes de comentar a for- 
ma como se "processa" um desvio no hook, gostaria de comentar o motivo de tal destruição. 
Ocorre que, ao voltar para o modo de comando (o modo em que você entra com as linhas de 
um programa), o MSX se coloca automaticamente no modo texto. Desta forma, não seria in- 
teligente deixar ativo um hook que foi projetado para funcionar no modo gráfico. A presença 
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de tal hook no modo texto só serviria para diminuir a velocidade de execução do interpretador 
BASIC, além de alterar continuamente a tabela de padrões de um MSX 2 no modo de 80 co- 
lunas. Para se destruir um hook, basta preencher o seu primeiro byte com o valor #C9 (ins- 
trução RET em assembly). No nosso caso, resolvi preencher todos os cinco bytes com esse 
valor, usando a instrução LDIR. Agora, um detalhe importantíssimo: NUNCA ALTERE UM 
HOOK DE INTERRUPÇÃO (OS DOIS PRIMEIROS HOOKS) COM AS INTERRUPÇÕES HA- 
BILITADAS; dê sempre um comando Dl antes de alterar um destes dois hooks. 

5.Na volta ao BASIC, o programa acima, além de destruir o hook, faz uma chamada à rotina 
KILBUF, para promover uma limpeza do buffer do teclado. Nos programas do Capítulo 1 , onde 
não existiam interrupções, não houve necessidade de tal chamada. Acontece que agora ha- 
bilitamos as interrupções para poder animar o radar. Como conseqüência, habilitamos também 
as interrupções para leitura do teclado e para controle do motor do(s) drive(s). Já que o sprite 
ó movimentado pelas teclas do cursor, se não promovermos uma limpeza do buffer do tecla- 
do na volta ao BASIC, todos esses movimentos se transportarão para o modo de comando, 
deslocando o cursor para posições imprevisíveis. 


Esgotado o assunto das interrupções, vamos para um estudo mais detalhado da interpre- 
tação dos erros no BASIC do MSX. 

O INTERPRETADOR BASIC E OS ERROS 

Você já deve ter notado que se entrar com um comando maluco, como por exemplo MSX, 
o interpretador BASIC do seu MSX exibirá a seguinte mensagem: 

ERRO DE SINTAXEse for um Hot-Bit 
Syntax errorse for um Expert 

Se conseguíssemos interceptar a rotina da mensagem de erro e promover uma pesquisa 
sobre o tipo de erro, poderíamos levar alguma vantagem, não? "Mas, que tipo de vantagem?" 
Imagine que você tenha entrado com o seguinte comando: 

CLRSCR 1 

Como sabemos, tal comando não existe no MSX. Se você entrasse com o comando aci- 
ma, o interpretador iria exibir de imediato a mensagem de erro de sintaxe. Por outro lado, se 
você conseguisse desviar a rotina de erro para uma rotina que analisasse o tipo de erro e a 
sentença que o causou, poderia facilmente implementar novos comandos ao BASIC. Tal "ma- 
cete" é possível em todos os microcomputadores que usem o BASIC da Microsoft, como o 
MSX. Para entender como tudo isto funciona, precisamos de alguns princípios básicos. 
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ARMAZENAMENTO DE UMA LINHA EM BASIC 

Para poder entender como o interpretador BASIC funciona, temos de entender o esquema 
de armazenamento de uma linha em BASIC na memória RAM do MSX. Quando entramos com 
uma linha em BASIC, tal como: 

10 FOR A%=1 TO 5000 

o interpretador BASIC transforma os caracteres em ASCII da linha acima em códigos 
próprios, de modo a otimizar o espaço gasto pela linha. Desta forma, apesar da linha ter sido 
entrada com 19 caracteres ASCII de comprimento, ocupará, na verdade, 18 posições de 
memória. Antes de mais nada, vamos aproveitar o programa DUMP (programa 19) para nos 
ajudar nesse entendimento. Siga os seguintes passos: 

1. Vá para o BASIC. 

2. Carregue o programa 19 com o seguinte comando: 

BLOAD"PROG19.BIN",R 

3. Digite NEW e aperte Enter/Return para apagar qualquer programa em BASIC que, por ven- 
tura, esteja na memória. 

4. Entre com a linha acima (10 FOR A%-1 TO 5000). 

Ao terminar de digitar e dar entrada à linha acima, você verá que as 2 primeiras linhas das 
4 produzidas pelo programa DUMP (programa 19) serão as seguintes (assumindo que você 
esteja no modo de 40 colunas): 

8000 00 1 2 80 0A 00 82 20 41 25 EF 12 20 
800C D9 20 1C 88 13 00 00 00 00 00 00 00 

O que significam todos estes números em hexadecimal? O valor contido em #8000, #00, 
indica a presença ou não de um erro incontornável. Para entender como ele funciona, faça o 
seguinte: 

1. Digite RUN e aperte Enter/Return. Após este comando, o MSX responderá com a mensa- 
gem Ok. Embora você não tenha entrado com mais nenhuma linha, a linha acima não possui 
qualquer erro de sintaxe. Ao receber o comando RUN, o interpretador BASIC executa o co- 
mando FOR contido na linha de exemplo. Ao executar o comando FOR, o interpretador aca- 
ba por inicializar a variável A% com o valor inicial 1 , e retorna para o modo de comando com 
a mensagem Ok, por não ter encontrado o NEXT correspondente ao comando FOR. 

2. Após o MSX ter exibido a mensagem Ok, entre com a seguinte linha no modo direto: 

POKE &H8000,255 
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3.Digite novamente RUN e aperte a tecla Enter/Return. O que aconteceu? O seu MSX respon- 
deu com uma mensagem de erro, ao invés da mensagem Ok. Para que o seu MSX volte ao 
normal, entre com a seguinte linha no modo direto: 

POKE &H8000.0 

Como você pode ver, a posição de memória #8000 é usada para sinalizar o acontecimen- 
to de um erro inesperado. Passemos então para a posição #8001. Os endereços #8001 e 
#8002 armazenam o endereço da próxima linha em BASIC, que no nosso caso é #8012 (não 
se esqueça que o Z80 trabalha na forma LSB e MSB, no caso, #1 2 #80), como você pode ve- 
rificar na listagem produzida pelo programa DUMP. Os endereços #8003 e #8004 contêm o 
número da linha (10=#0A) também na forma LSB e MSB. Como você poderá constatar, o va- 
lor contido nestas duas posições é #000A=1 0. 0 endereço #8005 contém o valor #82, que na- 
da mais ó do que o "token" do comando FOR. Como já tinha afirmado, o interpretador BASIC 
traduz a linha recóm-entrada para códigos próprios, visando a otimização do espaço ocupado 
pela própria linha. Estes códigos recebem o nome genérico de token. Você pode perceber a 
vantagem de tal método olhando para o exemplo do comando FOR, que na sua forma literal 
gasta 3 caracteres ou 3 bytes, e na sua forma "tokenizada" gasta apenas 1 byte. O endereço 
#8006 armazena o valor #20, que nada mais é do que o código ASCII do caractere de espaço 
em branco entre o comando FOR e A%. O endereço #8007 contém o valor #41 , que vem a ser 
o código ASCII da letra A. O endereço #8008 contém o valor #25, que nada mais é do que o 
código ASCII do caractere %. O endereço #8009 contém, então, o token do sinal de igual, no 
caso #EF. O endereço #800A contém o token do número 1 , no caso #1 2 (consulte o livro " PRO- 
GRAMAÇÃO AVANÇADA EM MS)C, para maiores detalhes). O endereço #800B, por sua 
vez, contém o código ASCII do caractere de espaço entre 1 e TO. O endereço #800C contém 
o token do comando TO. O endereço #800D armazena o código ASCII do caractere de espaço 
entre TO e 5000. O endereço #800E contém um valor de identificação que avisa que o núme- 
ro contido nos dois endereços de memória seguintes é um inteiro na faixa de 256 a 32767. Os 
endereços #800F e #8010 contêm, respectivamente, o valor LSB (#88) e MSB (#13) do núme- 
ro inteiro. Vejamos se isto está correto: 


#13-19 em decimal 
#88=136 em decimal 
Número final=1 9*256+1 36=5000 


Como se percebe pelos cálculos acima, o valor armazenado na forma LSB e MSB está cor- 
reto. O endereço #801 1 contém o valor #00 que, por sua vez, representa o papel de indicador 
de fim de linha. Os endereços #8012 e #8013, que correspondem ao início de uma nova linha 
(lembre-se do conteúdo em #8001 e #8002), apresentam o valor #0000. Este fato indica que 
a linha anterior foi a última do programa em BASIC. A partir desta constatação, podemos 
concluir que um programa em BASIC termina com uma seqüência de três endereços de 
memória contendo o valor #00. A partir do endereço #8014, temos a área da memória RAM 
destinada ao armazenamento das variáveis (inteiras, strings, arrays, etc). Você pode conferir 
a validade de tal endereço com o seguinte comando: 
PRINTHEX$(PEEK(&HF6C2)+256*PEEK(&HF6C3)) 


OS HOOKS E 0 INTERPRETADOR BASIC 1 3 1 


Ao entrar com o comando acima, o seu MSX responderá com 8014, que, como já sabe- 
mos, corresponde ao início da área destinada ao armazenamento das variáveis do programa 
em BASIC. "Mas, o que significam os endereços #F6C2 e #F6C3?" Esses endereços estão 
na área das variáveis do sistema e são atualizados continuamente pelo interpretador BASIC 
à medida em que vamos retirando ou acrescentando linhas a um programa. 


ARMAZENAMENTO DE UMA VARIÁVEL INTEIRA 

Com a linha de exemplo anterior (10 FOR A%=1 TO 5000) e com o programa DUMP fun- 
cionando, digite o comando RUN e pressione a tecla Enter/Return. Você vai observar que a 
segunda linha produzida pelo programa DUMP apresenta os seguintes dados: 

800 C D9 20 1C 88 13 00 00 00 02 41 00 01 

O que temos agora? A resposta é bem simples: já sabemos que a partir do endereço #8014 
(somente neste exemplo) se inicia a área das variáveis, de modo que o valor #02 em #8014 é 
um byte de identificação usado para sinalizar uma variável inteira (#03 para string, etc); o va- 
lor #41 em #8015 ó o código ASCII da primeira letra da variável (A, neste caso); o valor #00 
em #801 6 seria a segunda letra da variável (nenhuma=nul-#00, neste caso), já que o interpre- 
tador BASIC do MSX permite até dois caracteres no nome de uma variável (por isso, os nomes 
ED e EDU se referem à mesma variável no MSX); o valor #01-1 em decimal no endereço 
#8017 corresponde ao valor LSB da variável e, por fim, o valor #00 em 801 8 (não aparece na 
linha acima) corresponde ao valor MSB da variável A%. Como já tínhamos visto, o comando 
FOR apenas inicializa a variável A% com o primeiro valor, no caso 1 , já que não existe um co- 
mando NEXT que faça os incrementos sucessivos no valor da variável A%. Para entender um 
pouco mais sobre este assunto, siga os seguintes passos com o programa DUMP carregado: 

1. Digite NEW e pressione a tecla Enter/Return. 

2. Digite o seguinte programa em BASIC: 

10 FOR A%=1 TO 500 
20 NEXT A% 

3. Digite RUN e pressione a tecla Enter/Return. 

4.0bserve a variação nos endereços #8020 e #8021 (o penúltimo par de valores mostrado pe- 
lo DUMP na sua segunda linha) 

Que conclusões podemos tirar? Em primeiro lugar, chegamos à conclusão de que o nos- 
so programa DUMP (programa 19) é rápido o suficiente para detectar a variação do conteúdo 
da variável A%, promovida pelo comando NEXT A%. Em segundo lugar, fica claro que o início 
da área das variáveis passou para o endereço #801 D devido à inclusão da linha 20. Por últi- 
mo, chegamos à conlusão, através dos valores contidos em #8020 e #8021 , que a variável A% 
sai do loop com o valor 5001 , e não 5000, como poderíamos pensar. "Mas, como assim?" Ora, 
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os endereços #8020 e #8021 armazenam o conteúdo da variável A% e o programa DUMP 
mostra que esses valores são, respectivamente, #89 e #13. Fazendo as contas: 

#89-137 em decimal 
#13-19 em decimal 
Valor final- 1 9*256+1 37-5001 

Você pode conferir tal afirmação entrando com o seguinte comando: 

PRINT A% 

que o MSX responderá com 5001. 


PROCEDIMENTO DE INTERRUPÇÃO 
DE UM PROGRAMA EM BASIC 

Agora que já temos os subsídios necessários, vamos entender como funciona a interpre- 
tação de um programa em BASIC. Você já deve saber que um programa em BASIC é inter- 
pretado pelo interpretador BASIC do seu MSX, mas, o que vem a ser isso? Um programa 
interpretado tem a sua execução feita linha a linha, ou seja, o interpretador obtém a linha a 
ser executada, traduz para a linguagem de máquina, executa o programa traduzido e, por fim, 
retorna com os resultados para o ambiente BASIC. Já um programa compilado não apresen- 
ta a etapa de tradução; o programa já está todo traduzido para a linguagem de máquina. Ago- 
ra, fica fácil entender por que os programas compilados são bem mais rápidos do que os 
programas interpretados. A única vantagem do programa interpretado sobre o compilado é 
que o primeiro permite uma depuração (etapa de conserto de erros) muito mais fácil, devido à 
possibilidade de se interromper a execução do programa numa determinada linha. "Mas, 
Eduardo, como é que se processa a interpretação?" Bem, existe na BIOS do MSX uma rotina 
chamada CHRGTR, que tem como função "varrer" o programa em BASIC na memória. "Var- 
rer? Como assim?" Esta rotina faz um rastreamento da memória, ou seja, quando entramos 
com um comando RUN ou GOTO, acionamos esta rotina, que ó a responsável pela obtenção 
de cada elemento que constitui uma linha e pelo transporte dele para o tradutor. Como se faz 
tal rastreamento? O par de registros HL (do Z80) apresenta sempre o endereço de memória 
do elemento de uma determinada linha que estiver sendo considerado. Diante disto, já deve- 
mos desconfiar que, quando entramos com o comando RUN, o par HL é carregado com o en- 
dereço #8000, já que este é o endereço inicial de um programa em BASIC. A rotina CHRGTR 
é muito poderosa, como demonstram as suas características: 
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Nome da rotina 

: CHRGTR 

Endereço inicial 

: #0010 

Modo de chamada 

: RST #10 

Parâmetros de entrada 

: HL=endereço do caractere atual 


no programa 

Parâmetros de salda 

: A=próximo caractere no programa 

Registros alterados 

: AF e HL que passa a apontar para 


o novo caractere 


Tabela 2. 1: Características da rotina CHRGTR 


Convém mencionar que, no retorno desta rotina, as flags (registro F do Z80) desempe- 
nham um papel importante: 


Se o próximo caractere for um espaço em branco (#20), tabulação (#09) ou retorno de li- 
nha (#0A), será pulado pela rotina CHRGTR. 

Se o próximo caractere for um terminador de linha (:) ou fim de linha real (#00), a rotina ter- 
minará com as flags Z e NC. 

Se o próximo caractere for um dígito entre 0 e 9, ou seja, se for um número, a rotina termi- 
nará com as flags NZ e C. 

Se o próximo caractere for um caractere puro, ou seja, se não pertencer a nenhum dos ti- 
pos anteriores e se não for um token, a rotina terminará com NZ e NC. 

Como se vê, além de rastrear o programa em BASIC, esta rotina retorna com o tipo de va- 
lor na posição de memória que estiver sendo processada. A união desta rotina com a rotina 
de interpretação dos erros resultará num modo poderoso e simples de implementação de no- 
vos comandos. Para podermos prosseguir na implementação de novos comandos, devemos 
antes estudar o mecanismo de processamento dos erros. 

MECANISMO DE INTERPRETAÇÃO DOS ERROS 

À medida que o interpretador BASIC vai "varrendo" o programa em BASIC usando a roti- 
na CHRGTR, coloca, ao mesmo tempo, o código de erro pertinente no registro E do Z80. Se 
não acontecer nenhum erro, o registro E é carregado com #00; caso contrário, é carregado 
com o código de erro pertinente. Como já vimos, o erro que nos interessa ó o de sintaxe, já 
que é este o erro que o interpretador BASIC emite quando encontra um comando que desco- 
nhece. Consultando o manual que acompanha o nosso MSX, observamos que o código para 
erro de sintaxe é o #02. 0 que nos resta fazer? Simples: basta interceptar a rotina de manipu- 
lação de erros e verificar se o valor no registro E é igual a #02. "Mas, como vamos interceptar 
tal rotina?" Usando o hook dessa rotina! Você deve estar lembrado que afirmei que, assim que 
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uma rotina ó ativada, a primeira ação tomada é um desvio para o hook correspondente. Des- 
ta forma, o hook é "executado" antes mesmo da própria rotina, abrindo, assim, a chance de ter- 
mos acesso a todos os parâmetros de entrada dela. No nosso caso, o que nos interessa é ter 
acesso ao valor contido no registro E, para sabermos se trata-se de um erro de sintaxe ou não. 
Se for um erro de sintaxe, devemos desviar a rotina de erro para uma rotina nossa que pes- 
quise se o erro foi ou não motivado por um novo comando criado por nós. Se for este o caso, 
devemos executar as ações pertinentes ao nosso novo comando, devolvendo em seguida o 
controle ao interpretador BASIC, e não mais à rotina para manipulação de erros. Já se o erro 
tiver sido motivado por um outro comando que não seja um criado por nós, devemos devolver 
o controle à rotina para manipulação de erros. Vejamos, então, como se processa todo este 
mecanismo de desvio, começando por algumas informações básicas e necessárias. A primei- 
ra delas se refere ao endereço do hook para desvio da rotina da interpretação de erros. O hook 
que desejamos chama-se HERRO e situa-se no endereço #FFB1 . A segunda informação que 
desejamos diz respeito a como obter o endereço, na memória RAM, do comando que originou 
o erro. Este endereço é fornecido por uma variável do sistema chamada SAVTXT, que se si- 
tua no endereço #F6AF. Com estas informações, torna-se possível elaborar uma rotina que 
crie novos comandos para o BASIC. Mas, antes, uma pergunta: como fazer para que a nossa 
rotina não gaste um único byte da RAM destinada aos programas em BASIC? Lembre-se que 
a resposta já foi dada no início deste capítulo. Se você acha que para isso devemos colocar a 
nossa rotina na página 1 (entre os endereços #4000 e #7FFF), aproveitando a rotina de cha- 
madas interslots, CALLF, está absolutamente certo. 


O PROGRAMA PARA A 

CRIAÇÃO DE NOVOS COMANDOS NO BASIC 

Com base nas informações expostas nos tópicos anteriores, vamos para a listagem do pro- 
grama que implementa um novo comando: o comando REVERSE. Antes de partir para a lis- 
tagem, gostaria de fazer um comentário sobre os nomes dos novos comandos. A regra manda 
que os comandos sejam na mesma língua dos comandos principais, ou seja, em inglês. Eu, 
particularmente, não dou a mínima para aqueles que, baseados no fato dos comandos esta- 
rem em inglês, e não em português, me acusam de ter trocado apenas o nome do verdadeiro 
autor. Ora, fazer a tradução de um programa é uma tarefa relativamente simples. Então, por 
que trocar apenas o nome do autor? Se fosse um caso de pirataria, acho que deveria traduzir 
também os nomes dos comandos, ou não? Aposto que se escrevesse o programa com todos 
os comandos em português, alguém iria afirmar que fiz o papel de um bom "piratão", traduzin- 
do os nomes dos comandos e trocando o nome do autor verdadeirol Como se vê, se dermos 
ouvidos aos argumentos dos incompetentes e invejosos não vamos produzir absolutamente 
nada. Por que adotei o inglês para dar nome aos novos comandos? A resposta está baseada 
na coerência, ou seja, se todos os demais comandos são em inglês, por que colocar os novos 
comandos em português? Outro fato que merece destaque nesta "defesa" é que, sempre que 
possível, adotarei nomes de comandos já existentes em outras linguagens, como o Turbo Pas- 
cal (CLRSCR é um exemplo típico). Agindo dessa forma, estaremos promovendo uma inte- 
gração maior entre os conceitos adquiridos na experiência com diversas linguagens. Como se 
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não bastasse, adotando a nomeação em inglês ainda podemos contar com a ajuda dos to- 
kens. Vejamos, por exemplo, o comando SCRSAVE. Embora SCR não seja um token, SAVE 
o ó, de modo que, ao invés do comando acima ocupar 7 bytes, ocupará somente 4. Isto por si 
só já representa uma boa defesa^ nomenclatura em inglês. Vamos então às listagens: 

Listagem em assembly Z-80 do código-fonte do programa que implementa o comando 
REVERSE: 

Iprograma para implementação do comando REVERSE 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG22.BIN-PROG22.GEN 


;onde PROG22.GEN ó o nome do arquivo-texto com esta 
;listagem 


versão 

equ 

#002d 


linlen 

equ 

#f3b0 


txtnam 

equ 

#f3b3 


txtcgp 

equ 

#f3b7 


calslt 

equ 

#001c 


caibas 

equ 

#0159 


chrgtr 

equ 

#4666 


evlexp 

equ 

#520e 


getcoor 

equ 

#579c 


dridef 

equ 

#f247 


crtcnt 

equ 

#f3bl 


errflg 

equ 

#f414 


savtxt 

equ 

#f6af 


scrmod 

equ 

#fcaf 


grpacx 

equ 

#fcb7 


grpacy 

equ 

#fcb9 


hkeyi 

equ 

#fd9a 


herro 

equ 

#ffb1 



defb 

#fe 

;simula em CP/k 


defw 

inicio 

;o cabecalho de 


defw 

fim-erro+rotina+#01 




;um arquivo 


defw 

inicio 

;. BIN 


org 

#d000 



inicio 
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di 


desabilita as interrupções 

in 

a,(#a8) 

lê a atual configuração dos 

ld 

b,a 

slots e prepara para ativar 

and 

#f0 

a página 1 do slot da RAM 

rrca 



rrca 



rrca 



rrca 



or 

b 


out 

(#a8),a 

ativa as páginas 1 , 2 e 3 em 

and 

#03 

RAM e descobre o slot onde 

ld 

(slot), a 

se encontram os 64Kb de RAM 

ld 

a,b 

a=config. inicial dos slots 

ld 

hl.novohook 

promove o desvio do hook 

ld 

de.herro 

dos erros 

ld 

bc.0005 


Idir 



ld 

hl, rotina 

transfere a rotina para a 

ld 

de, erro 

página 1 da RAM 

ld 

bc,fim-erro+#01 


Idir 



out 

(#a8),a 

habilita a config. original 

ei 


habilita as interrupções 

ret 


retorna ao BASIC 


novohook 

defb 

#f7 

;RST #30 

slot 

defb 

#00 

;identificação do slot 


defw 

erro 

;endereço de desvio 


defb 

#c9 

;RET 


rotina 

org 

#4000 


erro 

push 

af 

salva os registros afetados 


push 

bc 



push 

de 



push 

hl 


examerro 

ld 

a,e 

a*código do erro 


cp 

#02 

é erro de sintaxe? 


jP 

nz, aborta 

Não, volta ao BASIC 

peg achar 

ld 

hl.(savtxt) 

Sim, obtém a posição do 


ponteiro do BASIC 
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ld 

a, (hl) 

é final de linha? 


or 

a 



jp 

nz, proxchar 

Não, obtém o próximo carac. 

pula 

inc 

hl 

Sim, pula as 4 posições 

inc 

hl 

referentes ao número da 


inc 

hl 

linha e ao end. da próxima 


inc 

hl 

linha 

proxchar 

ld 

ix.chrgtr 

obtém o primeiro caractere 


call 

chamabasic 

do novo comando 

compara 

call 

compstring 

compara com a lista de novos 
comandos 

aborta 

pop 

hl 

recupera os registros salvos 


pop 

de 



pop 

bc 



pop 

af 



ret 


retorna ao BASIC 

;a rotina compstring é a responsável pela localização da 

;rotina do novo comando 



compstring 

ld 

(auxiliar), hl 

;salva o pont. do BASIC 


ld 

hl.lista 

;hl aponta p/ lista de 
;comandos 


ld 

bc.endlista-lista 

;bc=tamanho da lista 

compstrl 

ld 

de, (auxiliar) 

;de aponta p/ comando em 
;BASIC 


ld 

cpir 

a, (de) 

;obtém o primeiro byte 
;tenta encontrá-lo na 
;lista 


jP 

po.naoachei 

;se bc=0 -> não achou 

compstr2 

inc 

de 

;achou o primeiro e 
parte 


ld 

a, (de) 

para a comparação dos 


cp 

(hl) 

;demais caracteres. Vai 
para 


jp 

nz, compstrl 

pompstrl se achar um 
;byte diferente. 


inc 

hl 

;Caso contrário, 


ld 

a, (hl) 

pontinua até o fim do 
pomando. 


cp 

#00 

;Se chegou ao fim e 


jp 

z, achei 

;então achou o comando 
;na lista. 
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naoachei 

JP 

ret 

compstr2 

;Caso contrário, compara 
;o próximo byte. 

achei 

inc 

ld 

hl 

;Se achou, obtém o 
jendereço 


c.(hl) 

;de entrada da rotina, 


inc 

hl 

;colocando-o em BC 


ld 

b.(hl) 

J 


pop 

af 

;retira da pilha o 
jendereço de 


push 

bc 

jretorno para a rotina 
;erro e 

jcoloca na pilha o 
jendereço de 
jentrada da rotina do 
jnovo comando 


ld 

(auxiliar), de 

jguarda o ponteiro 
;do BASIC 


ex 

de, hl 

jtransfere o ponteiro 
jpara HL 


ret 


jusa RET para dar um 


;jump 

;para o endereço contido 
;BC que foi salvo na 
jpilha 


;a rotina lecomandos é a responsável pela interpretação dos 
;valores que se seguem ao nome do novo comando. Os valores 
;devem estar separados por vírgulas. Na entrada, o par IX 
'.aponta para uma tabela com valores default e o registro B 
;contém o número de valores a interpretar 


lecomandos 

push 

ix 

jsalva o par IX 

lecomanl 

push 

ix 


ld 

ix.chrgtr 

jobtém um valor 


call 

chamabasic 



pop 

ix 

jrecupera o ponteiro IX 


jr 

z,lecoman_4 

;Se não houver valor vai para 
;lecoman_4 


cp 

m m 

9 

;é vírgula? 


jr 

z.lecoman 3 

;Sim, assume o default 


dec 

hl 

;Não, obtém o valor 


push 

ix 

jsalva o ponteiro 


push 

bc 

jsalva o contador 


ld 

ix.evlexp 

jobtém o valor 
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call 

chamabasic 



pop 

bc 

;recupera o valor 


pop 

ix 

jrecupera o ponteiro 


ld 

a,e 

;a«valor interpretado 


ld 

(ix+#00),a 

;coloca-o na tabela 

lecoman_3 

inc 

ix 

;incrementa o ponteiro 


djnz 

lecoman_1 

;repete para os demais 
;valores 

lecoman_4 

pop 

ret 

ix 

;recupera o ponteiro salvo 
;retorna 


;a rotina erro_05 emite a mensagem 

de chamada ilegal 

erro 05 

ld 

a, #05 

;a*código do erro 

ld 

(errflg), a 

;salva o erro em errflg 

jp 

voltaerro 

;vai para voltaerro 


;a rotina voltaerro substitui o erro original por um outro 
voltaerro 


pop 

hl 

;recupera os pares 

pop 

de 

;salvos no início da 

pop 

bc 

jrotina erro 

pop 

af 

f 

ld 

a, (errflg) 

;a»erro a ser emitido 

ld 

e,a 

;e=erro a ser emitido 

ret 


;volta para a rotina 



;de manipulação de erros 
;do interpretador BASIC 


;a rotina volta promove a volta ao BASIC sem que haja 
;interrupção no processamento, ou seja, sem que o sistema 

;detecte o erro ocorrido 



volta 



dec 

hl 

;hl aponta para o final 
;do último comando 

xor 

a 

;modifica para nenhum erro 

ld 

(errflg), a 

;ocorrido 

pop 

de 

;recupera os registros 
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pop 

de 

;salvos no início da rotina 


pop 

bc 

;erro. Note que hl não é 


pop 

af 

;recuperado. 


pop 

de 

;obtém o end. de retorno da 
;nossa rotina para a rotina 
;de chaveamento de slots 


pop 

bc 

;obtém o end. de retorno da 
;rotina de chaveamento de 
;slots para RST #30 


pop 

af 

;obtém o end. de retorno de 
;RST #30 para o hook 


pop 

ix 

;obtém/destrói o end. de 
;retorno do hook para a 
;rotina 

;de erro do interpretador 
;BASIC 


pop 

ix 

jobtém/destrói o end. de 
;retorno 

;da rotina de erro para o 
;interpretador BASIC 


push 

af 

;repõe na pilha os end. de 


push 

bc 

jretorno salvos nestes 


push 

de 

;regístros 


ld 

ix.chrgtr 

;faz com que hl aponte 


jp 

ret 

chamabasic 

;para o próximo comando 
;e retorna ao BASIC 

chamabasic 


call 

ret 

caibas 

;chama a rotina caibas 
;retorna 

inverte 


ld 

b,#04 

;b=núm. de valores 


ld 

ix.tabinver 

;ix=tabela default 


call 

lecomandos 

;lê os 4 valores 


ld 

a,(ix+#00) 

;obtém coord. x 


ld 

(grpacx).a 

;salva em grpacx 


ld 

a,(ix+#01) 

;obtém a coord. y 


ld 

(grpacy),a 

;salva em grpacy 


ld 

a,(ix+#02) 

;obtém o comp. da string 


ld 

(compstr).a 

;salva em compstr 


cp 

33 

;é >= 33? 


JP 

nc,erro_05 

;Sim, chamada ilegal 


ld 

(auxiliar).hl 

;salva ptr. do BASIC 


ld 

a,(ix+#03) 

;a=flag de recuperação 


or 

a 

;está setada? 
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inverteO 


inverte3 


V 

z.inverteO 

ld 

a, (inversão) 

or 

a 

K 

z.inverteO 

ld 

hl,(bufnor+#01) 

call 

setvdpwt 

ld 

hl,bufnor+#03 

ld 

a,(bufnor) 

ld 

b,a 

call 

esclinha 

ld 

a,#ff 

ld 

(inversao).a 

ld 

hl, (auxiliar) 

ld 

a.(compstr) 

or 

a 

jP 

z.volta 

ld 

ix.bufnor 

ld 

iy.bufinv 

ld 

(ix+#00),a 

ld 

(iy+#00),a 

call 

calpadvid 

ld 

a,(grpacx) 

ld 

e,a 

ld 

a, (colunas) 

cp 

e 

jp 

c,erro_05 

ld 

a,(grpacy) 

cp 

24 

jP 

nc,erro_05 

call 

di 

lefrase 

ld 

hl.(tabpad) 

push 

hl 

ld 

de,#e0*8 

add 

hl.de 

ex 

de, hl 

ld 

c,#eO 

ld 

b,(ix+#00) 

ld 

ix,bufnor+#03 

ld 

iy,bufinv+#03 

pop 

hl 

push 

bc 

push 

hl 

push 

de 


Não, vai para inverteO 
Sim, já foi feita alguma 
inversão? 

Não, vai para inverteO 
Sim, obtém a pos. da string 
antiga e prepara o VDP 
hl->início da string antiga 
a=comp. da string antiga 
a=comp. da string antiga 
escreve a string antiga 
no modo normal 

sinaliza uma inversão 
hl=ponteiro do BASIC 
a=comp. da string 
comprimento=0? 

Sim, volta com erro 
Não, ajusta os buffers 
para a string normal e 
para a string invertida 
com o comprimento da 
calcula os padrões do vídeo 
obtém a coord. x 
coloca em e 

obtém o número de colunas 
compara com o valor lido 
Se valor lido > colunas 
volta com erro 
obtém a coord. y 
é maior do que 23? 

Sim, volta com erro 
lê a string a inverter 
desabilita as interrupções 
hl=end. da tab. de padrões 
salva o end. da tab. de 
padrões 

calcula o endereço do 
desenho do caractere #e0 
de=end. do des. do carac. #e0 
c=#eO 

b=número de carac. da string 

ix=endereço da string normal 

iy=end. da string invertida 

recupera hl 

salva bc 

salva hl 

salva de 


loopinvl 
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loopinv2 


loopinv3 


envinvert 


tabinver 


ld 

de, #0008 

;bytes para o desenho de cada 
;caractere 

ld 

b,(ix+#00) 

;b=caractere a inverter 

add 

hl.de 

;calcula o endereço desse 

djnz 

loopinv2 

jcaractere 

pop 

de 

;recupera de 

ld 

b,#08 

;prepara a modificação 

call 

rdvram 

;lê o byte original 

cpl 


jinverte 

ex 

de, hl 

transfere para o novo 

call 

wtvram 

;destino 

ex 

de, hl 

i 

inc 

hl 

;hl=hl+1 

inc 

de 

;de=de+1 

djnz 

loopinv3 

;b-b-1 

pop 

hl 

;recupera hl 

pop 

bc 

;recupera bc 

ld 

(iy+#00),c 

jmodifica a string 

inc 

c 

;c=c+1 

inc 

ix 

;aponta para o próximo carac. 

inc 

iy 


djnz 

loopinvl 

;repete até o fim da string 

ld 

iy.bufinv 

;recupera o pont. do buffer 

ld 

l.(iy+#01) 

;hl=end. de escrita da string 

ld 

h,(iy+#02) 

9 

call 

setvdpwt 

;ajusta o VDP para escrita 

ld 

b,(iy+#00) 

;b=núm. de carac. da string 

ld 

hl,bufinv+#03 

;end. da string 

call 

esclinha 

;escreve a frase invertida 

ei 


;habilita as interrupções 

ld 

hl, (auxiliar) 

;recupera ptr. do BASIC 

jp 

volta 

;volta para o BASIC 


defb 

#00 

;posição x 

defb 

#00 

;posição y 

defb 

#00 

;comprimento 

defb 

#00 

;flag de restauração 


;a rotina calpadvid calcula os padrões do vídeo: a tabela de 
Ipadrões e o número de colunas. Os valores resultantes são 
;colocados em tabpad e colunas, respectivamente 
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calpadvid 


calpad_1 

calpad_2 


ex 

af.af’ 

;salva o registro af 

exx 


;salva os demais registros 

ld 

hl.(txtcgp) 

;obtém a tab. de padrões 

ld 

a.(versao) 

;obtém a versão 

or 

a 

;do MSX. É MSX1? 

jr 

z,calpad_1 

;Sim, vai para calpad_1 

ld 

a,(linlen) 

;obtém o tamanho da tela 

cp 

41 

;0 MSX 2 está em 80 colunas? 

jr 

c,calpad_1 

;Não, vai para calpad_1 

ld 

a,80 

;Sim, a=80 colunas 

add 

hl, hl 

;calcula novoend. da 
;tabela de padrões 

jr 

calpad_2 

;vai para calpad_2 

ld 

a, 40 

;a=40 colunas 

ld 

(colunas), a 

;salva as colunas 

ld 

(tabpad).hl 

;salva o end. da tab. de 
padrões 

exx 


;recupera os registros salvos 

ex 

af.af 

> 

ret 


;retorna 


;a rotina lefrase transporta da tela para o buffer bufnor 

;a sentença a inverter. 

lefrase 


push 

af 

;salva os registros 

push 

bc 

;modificados por esta 

push 

de 

;rotina 

push 

hl 

; 

call 

calendfra 

palcula o end. da string 
;na VRAM 

call 

setvdprd 

prepara o VDP para leitura 

ld 

b,(ix+#00) 

pbtém o comp. da string 

ld 

hl,bufnor+#03 

;hl->início da string 

call 

lelinha 

;lê a string 

pop 

hl 

;recupera os registros 

pop 

de 

;salvos 

pop 

bc 

f 

pop 

ret 

af 

» 

jretorna 


;a rotina calendfra,baseada nas coordenadas fornecidas, calcula o endereço da sentença a 
;inverter na memória VRAM 
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calendfra 

ld 

h,#00 

calcula o end. da string 


ld 

d.h 

na memória VRAM, baseada 


ld 

a,(grpacy) 

nas coordenadas passadas 


ld 

l.a 



or 

a 

a string está na linha 0? 


jr 

z, calendl 

Sim, vai para calendl 


ld 

l.h 

Não, calcula o end. do 


ld 

b,a 

início da linha 


ld 

a, (colunas) 



ld 

e,a 


loopcaM 

add 

hl.de 



djnz 

loopcal_1 


calendl 

ld 

a.(grpacx) 

obtém a coord. x 


ld 

e,a 

e=coord. x 


add 

hl.de 

soma ao end. já encontrado 


ld 

(bufnor+#01) 

hl;salva no buffer das strings 


ld 

(bufinv+#01) 

hl;normal e invertida 


ret 


retorna 


;início da lista com os nomes dos novos comandos e 
;endereços de chamada 


lista 



defm 

"REVERSE" 

;nome do comando 


defb 

#00 

;fim do nome 


defw 

inverte 

;end. da rotina 

endlista 

defb 

#00 

;fim da lista 


;rotinas para o acesso direto à RAM de vídeo 


rdvram 


wtvram 


call 

setvdprd 

;ajusta o VDP para leitura 

in 

a, (#98) 

;lè um byte 

ret 


;retorna 


push 

af 

;salva o dado a enviar 

call 

setvdpwt 

;ajusta o VDP para escrita 

pop 

af 

;recupera o dado a enviar 

out 

(#98), a 

;envia 

ret 


;retorna 



OS HOOKS E O INTERPRETADOR BASIC 1 45 


setvdprd 

ld 

a, (versão) 

;obtém a versão do MSX 


or 

a 

;é MSX1 ? 


V 

z, rdvraml 

;Sim, vai para rdvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99),a 

;do MSX2 


ld 

a,#8e 



out 

(#99),a 

t 

rdvraml 

ld 

a.l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a.h 

;VRAM onde será 


and 

#3f 

;lido o dado 


out 

(#99), a 

J 


ex 

(sp),hl 

;demora para 


ex 

(sp).hl 

;sincronização 


ret 


;retorna 


setvdpwt 

ld 

a, (versão) 

;obtém a versão do MSX 


or 

a 

;é MSX1 ? 


jr 

z, wtvraml 

;Sim, vai para wtvraml 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l 

;informa ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a,h 

;VRAM onde o 


and 

#3f 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

; 


ex 

(sp).hl 

;demora para 


ex 

(sp).hl 

;sincronização 


ret 


;retorna 


;a rotina lelinha transporta uma linha da VRAM para a RAM 
lelinha 


in 

a, (#98) 

;lê o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer 

inc 

hl 

;incrementa o ponteiro 

djnz 

lelinha 

;prepara a próxima leitura 

ret 


;retorna 
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;a rotina esclinha transporta uma linha da RAM para a VRAM 


esclinha 



ld 

a,(hl) 

;lê o carac. do buffer 


out 

(#98),a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


jretorna 

;área das variáveis usadas no programa 


bufnor 

defb 

#00 

;tamanho da string 


defw 

#0000 

posição de escrita 


defs 

33 

;string 

bufinv 

defb 

#00 

;tamanho da string 


defw 

#0000 

posição de escrita 


defs 

33 

;string 

inversão 

defb 

#00 

;f lag de campo já invertido 

compstr 

defb 

#00 

pomprimento da string 

colunas 

defb 

#00 

jnúmero de colunas na tela 

tabpad 

defw 

#0000 

;endereço da tab. de padrões 

auxiliar 

defw 

#0000 

ponteiro do BASIC 

fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa que Implementa o comando 
REVERSE: 

10 FOR A%=SHD000 TO &HD2BB 
20 READ B$ 

30 POKE A% , VAL (" tH"+B$) 

40 NEXT A% 

50 BSAVE "prog22 . BIN" , &HD000, &HD2BB 

100 DATA F3 , DB, A8, 47 , E6, F0, 0F, 0F, 0F, 0F, B0, D3, A8 , E6, 03, 32 
110 DATA 2E, D0, 78, 21, 2D, D0, 11 , BI , FF, 01,05,00, ED, BO, 21, 32 
120 DATA DO, 11, 00, 40, 01 , 89, 02 , ED, BO, D3, A8, FB, C9, F7, 00, 00 
130 DATA 40, C9, F5, C5, D5, E5, 7B, FE, 02, C2, 20,40, 2A, AF, F6, 7E 


OS HOOKS E 0 INTERPRETADOR BASIC 1 47 


140 DATA B7 f C2, 16, 40, 23, 23, 23, 23, DD, 21, 66, 46, CD, AD, 40, CD 
150 DATA 25,40, El , Dl, Cl , Fl, C9 ,22, 86, 42, 21, E0, 41,01, OA, 00 
160 DATA ED,5B, 86, 42, 1A,ED,B1,E2, 48, 40, 13, 1A,BE,C2, 2E, 40 
170 DATA 23, 7E, FE, 00, CA, 49, 40, C3, 38,40, C9, 23, 4E, 23, 46, Fl 
180 DATA C5, ED, 53, 86, 42, EB, C9, DD, E5, DD, E5, DD, 21, 66, 46, CD 
190 DATA AD, 40, DD, El, 28, IA, FE, 2C, 28,12, 2B, DD, E5, C5, DD, 21 
200 DATA OE, 52, CD, AD, 40, Cl, DD, El, 7B, DD, 77, 00, DD, 23, 10, D9 
210 DATA DD, El, C9, 3E, 05, 32, 14 , F4, C3 , 89, 40, El , Dl , Cl, Fl, 3A 
220 DATA 14 , F4, 5F, C9, 2B, AF, 32,14, F4 , Dl, Dl , Cl , Fl , Dl, Cl, Fl 
230 DATA DD, El, DD, El , F5, C5, D5 , DD, 21 , 66, 46, C3, AD, 40, C9, CD 
240 DATA 59, 01, C9, 06, 04, DD, 21, 83, 41, CD, 55, 40, DD, 7E, 00, 32 
250 DATA B7,FC, DD, 7E, 01,32, B9,FC, DD, 7E, 02,32,82,42, FE, 21 
260 DATA D2,81,40,22,86,42,DD,7E,03,B7,28,16, 3A, 81, 42, B7 
270 DATA 28,10, 2A, 3A, 42 , CD, 11 , 42, 21 , 3C, 42 , 3A, 39 , 42, 47, CD 
280 DATA 32, 42, 3E, FF, 32,81, 42, 2A, 86,42, 3A, 82,42, B7, CA, 92 
290 DATA 40, DD, 21, 39, 42, FD, 21, 5D, 42, DD, 77, 00, FD, 77, 00, CD 
300 DATA 87,41, 3A, B7 , FC, 5F, 3A, 83, 42 , BB, DA, 81 , 40, 3A, B9, FC 
310 DATA FE, 18, D2 ,81,40, CD, A9 , 41 , F3, 2A, 84 , 42 , E5 , 11, 00, 07 
320 DATA 19, EB, OE, EO, DD, 46, 00, DD, 21, 3C, 42, FD, 21, 60, 42, El 
330 DATA G5, E5, D5, 11, 08, 00, DD, 46, 00, 19, 10, FD, Dl , 06, 08, CD 
340 DATA EB, 41, 2F, EB, CD, Fl, 41, EB, 23, 13, 10, F3, El, Cl, FD, 71 
350 DATA 00, OC, DD, 23, FD, 23, 10, D8, FD, 21, 5D, 42, FD, 6E, 01, FD 
360 DATA 66, 02, CD, 11, 42, FD, 46, 00, 21, 60, 42, CD, 32, 42, FB,2A 
370 DATA 86, 42 , C3, 92, 40, 00, 00, 00, 00, 08, D9, 2A, B7 , F3, 3A, 2D 
380 DATA 00, B7, 28, OC, 3A, BO, F3, FE, 29,38, 05, 3E, 50, 29, 18, 02 
390 DATA 3E, 28, 32 , 83, 42 , 22, 84 , 42, D9, 08, C9, F5, C5, D5, E5, CD 
400 DATA Cl, 41, CD, F9, 41, DD, 46, 00, 21, 3C, 42, CD, 2B, 42, El, Dl 
410 DATA Cl , Fl, C9, 26, 00, 54, 3A, B9, FC, 6F, B7 ,28,09, 6C, 47, 3A 
420 DATA 83, 42, 5F, 19, 10, FD, 3A, B7, FC, 5F, 19,22, 3A, 42, 22, 5E 
430 DATA 42, C9, 52, 45, 56, 45, 52, 53, 45, 00, Bl, 40, 00, CD, F9, 41 
440 DATA DB, 98, C9 , F5, CD, 11, 42 , Fl , D3, 98, C9 , 3A, 2D, 00, B7, 28 
450 DATA 07, AF, D3, 99, 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6, 3F, D3, 99 
460 DATA E3, E3, C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E, D3, 99 
470 DATA 7D, D3, 99, 7C, E6, 3F, F6, 40, D3, 99, E3 , E3, C9, DB, 98, 77 
480 DATA 23,10, FA, C9, 7E, D3, 98,23, 10, FA, C9, 00, 00, 00, 00, 00 
490 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
500 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
510 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
520 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
530 DATA 00,00,00,00,00,00,00,00,00,00,00,09 


Listagem do programa de teste: 

100 CLS:DIM B$(5):BLOAD"PROG22.BIN" 1 R 
110 REM *** Verifica o tamanho da tela *** 

120 IF PEEK(&HF3B0)>40 THEN CP%-80 ELSE CP%-40 
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130 REM *** Loop de leitura dos comandos *** 

140 FOR A%-1 TO 5 
150 READ B$(A%) 

160NEXT A% 

170 REM *** Loop para imprimir as opções *** 

180 FOR A%«1 TO 5 

190 LOCATE (CP%-LEN(B$(A%)))/2,A%+5:PRINTB$(A%) 

200 NEXT A% 

210 REM *“ Loop de demonstração do comando REVERSE *** 

220 SL%=1 :PS%-6 

230 X%*(CP%-LEN(B$(SL%)))/2:CM%«LEN(B$(SL%)):REVERSE X%,PS%,CM%,1 
240 A$-INKEY$:IF A$-"" THEN 240 
250 AT%=ASC(A$) 

260 IF (AT%o&H1 E AND AT%o&H1F) THEN 240 

270 IF (AT%«&H1E AND PS%>6) THEN PS%«PS%-1 :SL%-SL%-1 :GOTO 230 
280 IF (AT%=&H1 E AND PS%-6) THEN PS%-10:SL%-5:GOTO 230 
290 IF (AT%=&H1F AND PS%<10) THEN PS%-PS%+1 :SL%-SL%+1 :GOTO 230 
300 GOTO 220 

310 REM *** Comandos a serem exibidos *** 

320 DATA Banco de dados, Planilha, Editor de textos, Editor gráfico, Sair 


COMENTÁRIOS SOBRE O 

PROGRAMA QUE IMPLEMENTA O COMANDO REVERSE 

Antes de executar o programa de teste, vamos rever alguns tópicos. Antes de mais nada, 
vamos começar pelo estudo da sintaxe do novo comando. A sintaxe é: 

REVERSE X,Y,Comp,Flag 

onde 

X é a coordenada horizontal do primeiro caractere da sentença a ser invertida 

Y é a coordenada vertical do primeiro caractere da sentença a ser invertida 

Comp ó o comprimento, em caracteres, da sentença a ser invertida 

Flag é um indicador que ativa (1 ) ou desativa (0) a reinversão da última sentença 

Uma vez vista a sintaxe, vamos para a análise do programa-fonte. 

Antes de analisarmos as rotinas criadas por nós, vamos analizar duas rotinas presentes 
na ROM do MSX e por nós usadas: CALBAS e EVLEXP. A rotina CALBAS tem como função 
chamar uma rotina do interpretador BASIC a partir de qualquer configuração de siots. Esta ro- 
tina se torna particularmente útil porque o interpretador BASIC ocupa as páginas 0 e 1 do slot 
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0, e a nossa rotina ocupa a página 1 do slot da RAM. Como duas páginas iguais (no caso a 1 , 
que ó usada tanto pelo interpretador BASIC como pelo nosso programa, ainda que em slots 
diferentes) não podem ser ativadas ao mesmo tempo, só nos resta o recurso de utilizar a roti- 
na CALBAS que, em síntese, desativa a página 1 do slot atual, ativa a página 1 do slot 0 (ROM), 
executa a rotina desejada, desativa a página 1 do slot 0 e, por fim, ativa a página 1 do slot 
atual. Como você pode comprovar, ó uma rotina muito versátil e útil. Já a rotina EVLEXP (do 
inglês evaluate expression • calcular a expressão) tem como função calcular o resultado final 
de uma expressão em BASIC, tal como 2*2, X+Y, X+LEN(B$), etc. Esta rotina retorna com o 
resultado calculado como um inteiro no par DE. A Tabela 2.2 apresenta as características des- 
tas duas rotinas. 


Nome da rotina 
Endereço inicial 
Modo de chamada 
Parâmetros de entrada 

Parâmetros de saída 
Registros alterados 


CALBAS 

#0159 

CALL 

IX=endereço da rotina BASIC a 
ser executada 


: Nenhum 

: AF , l BC , ,DE , f HL’,IY 


Nome da rotina 
Endereço inicial 
Modo de chamada 
Parâmetros de entrada 
Parâmetros de saída 

Registros alterados 


: EVLEXP 
: #520E 

: Por intermédio de CALBAS 
: HL=lnício da expressão a avaliar 
: HL=fim da expressão avaliada 
DE=valor Inteiro do resultado 
: AF, BC, DE, HL 


Tabela 2.2: Características das rotinas CALBAS e EVLEXP 


A rotina lecomandosioi projetada para interpretar comandos separados por vírgula, per- 
mitindo inclusive que o usuário não entre com determinados valores. Por exemplo, se você 
desejar reinverter (colocar no modo normal) a última sentença invertida, bastará entrar com o 
comando 

REVERSE „0,1 

onde as duas primeiras vírgulas provocam a adoção dos valores default (no caso, os últi- 
mos usados) para x e y. Como o terceiro parâmetro é o comprimento da string a inverter, bas- 
ta colocá-lo em zero para que não haja inversão alguma. Como você já sabe, o quarto e 
último parâmetro define a reinversão da última sentença invertida. Como afirmam os co- 
mentários no cabeçalho desta rotina, o par IX na entrada deve apontar para uma tabela de va- 
lores default que será preenchida ou não, de acordo com os valores fornecidos pelo usuário. 
Você pode não estar vendo muito sentido nesta rotina, já que só existe um comando imple- 
mentado. Ocorre que a versão final deste programa apresenta mais de vinte comandos, logo, 
seria ilógico possuir uma rotina de interpretação para cada um deles. Como quase todos os 
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comandos utilizam a entrada de valores separados por vírgulas, senti-me na obrigação de fa- 
zer uma rotina geral para interpretação de valores. Imagine a economia de bytes que isto ge- 
rou! Além da rotina lecomandos, temos uma outra rotina que, devido à técnica empregada, 
pode não ter o seu funcionamento perfeitamente entendido. Vamos, então, ao estudo da roti- 
na volta. Essa rotina é a responsável por enganar o interpretador BASIC quanto ao erro de 
sintaxe. Vamos ver como se encontra a pilha após a execução da rotina que implementa o co- 
mando REVERSE: 

Bytes Motivo 

2 End. de retorno da rotina de erros para o 

interpretador BASIC 

2 End. de retorno do hook para a rotina de 

erros 

2 Par AF salvo pela rotina erro 

2 Par BC salvo pela rotina erro 

2 Par DE salvo pela rotina erro 

2 Par HL salvo pela rotina erro 

Como não desejamos que o sistema recorde que ocorreu um erro de sintaxe, temos de 
destruir os quatro bytes do topo da pilha referentes aos endereços de retorno usados pela ro- 
tina de erro. Por outro lado, temos de recuperar os registros salvos na pilha (AF, BC, DE e HL). 
"Como fazer, então?" A resposta mais simples é fazer seis pops seguidos de quatro pushs, 
como mostra a listagem do código-fonte. Cabe aqui um lembrete: nunca utilize um comando 
que use o desvio do vetor de erro (como o comando REVERSE) em conjunto com o coman- 
do IF...THEN. Por exemplo, o comando 

IF A%<9 THEN REVERSE 0,0,10,1 

resultaria numa mensagem de erro de sintaxe. O motivo ó simples: o comando THEN faz 
uma avaliação do próximo comando antes de executá-k), logo, temos neste caso dois indi- 
cadores de erro, o do comando THEN e o do interpretador BASIC ao executar o comando RE- 
VERSE. Como o hook que usamos só atua sobre os erros de sintaxe vistos pelo interpretador 
BASIC, não temos como destruir a indicação de erro de sintaxe colocada na pilha pelo coman- 
do THEN. "Como posso evitar essa limitação?" Onde for possível, basta que você inverta as 
situações. Veja, por exemplo, a linha a seguir: 

110 IF A%<9 THEN REVERSE 0,A%,10,1:ELSE A%=A%+1 

Ela poderá ser transformada em 

1 10 IF A%>=9 THEN A%=A%+1 ELSE REVERSE 0,A%,10,1 
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sem qualquer prejuízo ao processamento. Além desta simples inversão na ordem dos coman- 
dos, você sempre poderá lançar mão dos comandos GOSUB (preferível) e GOTO. Vamos, 
então, ver algumas das características deste tipo de implementação. 


Pontos positivos 

1 . Não faz uso de um byte sequer da RAM destinada ao 
BASIC 

2. Não faz uso do comando USR, que, por não ser 
descritivo, é confuso 

3. É totalmente transparente, dando a sensação de que o 
comando está disponível na ROM do microcomputador 

4 . Permite a emissão de novos erros, como os erros de 
tipos não compatíveis (mismatch error), de 
chamada ilegal (il legal fu nction call), etc. 

5. Permite o uso de funções do próprio BASIC, como, 
por exemplo, em; 

REVERSE X, Y, LEN(B$(A%)),0 

Ponto negativo 

1. Não pode ser usado após um comando THEN 
Tabela 2.3: Características dos comandos implementados por desvio do vetor de erro 


O PROGRAMA QUE IMPLEMENTA O COMANDO CLRSCR 

Como afirmei no início deste capítulo, terminaríamos este tópico com a implementação do 
comando CLRSCR. Você vai perceber que este novo comando nada mais é do que uma união 
de 5 programas do Capítulo 1 com o programa que implementa o comando REVERSE. Ten- 
do em vista que as listagens permanecem praticamente inalteradas, creio que vocè não terá 
qualquer dificuldade em acompanhar a lógica envolvida. Vamos então às listagens. 


Listagem em assembly Z-80 do código-fonte do programa que implementa o comando 
CLRSCR: 

Iprograma para implementar o comando CLRSCR 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 
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;GEN80 PROG23.BIN=PROG23.GEN 
» 

;onde PROG23.GEN é o nome do arquivo-texto com esta 
;listagem 


versão 

equ 

#002d 


linlen 

equ 

#f3b0 


txtnam 

equ 

#f3b3 


txtcgp 

equ 

#f3b7 


calstt 

equ 

#001c 


caibas 

equ 

#0159 


chrgtr 

equ 

#4666 


evlexp 

equ 

#520e 


getcoor 

equ 

#579c 


dridef 

equ 

#f247 


crtcnt 

equ 

#f3b1 


errflg 

equ 

#f414 


savtxt 

equ 

#f6af 


scrmod 

equ 

#fcaf 


grpacx 

equ 

#fcb7 


grpacy 

equ 

#fcb9 


hkeyi 

equ 

#fd9a 


herro 

equ 

#ffb1 



defb 

#fe 

;simula em CP/M 


defw 

inicio 

;o cabecalho de 


defw 

fim-erro+rotina+#01 

;um arquivo 


defw 

inicio 

;.BIN 


org 

#d000 


inicio 



di 


;desabilita as interrupções 

in 

a,(#a8) 

;lô a atual configuração dos 

ld 

b,a 

;slots e prepara para ativar 

and 

#f0 

;a página 1 do slot da RAM 

rr ca 



rrca 



rrca 



rrca 



or 

b 


out 

(#a8),a 

ativa as páginas 1 , 2 e 3 em 

and 

#03 

RAM e descobre o slot onde 

ld 

(slot).a 

se encontram os 64Kb de R/ 
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ld 

a,b 

a=config. inicial dos slots 

ld 

hl.novohook 

promove o desvio do hook 

ld 

de.herro 

dos erros 

ld 

bc,0005 


Idir 

ld 

hl, rotina 

Iransfere a rotina para a 

ld 

de, erro 

página 1 da RAM 

ld 

bc,fim-erro+#01 


Idir 

out 

(#a8),a 

habilita a config. original 

ei 


habilita as interrupções 

ret 


retorna ao BASIC 


novohook 

defb 

#f7 

;RST #30 

Slot 

defb 

#00 

jidentificação do slot 


defw 

erro 

jendereço de desvio 


defb 

#c9 

;RET 


rotina 

org 

#4000 


erro 

push 

af 

;salva os registros afetados 


push 

bc 



push 

de 



push 

hl 


examerro 

ld 

a,e 

;a=código do erro 


cp 

#02 

;é erro de sintaxe? 


jp 

nz, aborta 

;Não, volta ao BASIC 

pegachar 

ld 

hl.(savtxt) 

;Sim, obtém a posição do 
;ponteiro do BASIC 


kJ 

a, (hl) 

;ó final de linha? 


or 

a 



jp 

nz, proxchar 

;Não, obtém o próximo carac. 

pula 

inc 

hl 

;Sim, pula as 4 posições 


inc 

hl 

;referentes ao número da 


inc 

hl 

;linha e ao end. da próxima 


inc 

hl 

;linha 

proxchar 

ld 

ix.chrgtr 

;obtém o primeiro caractere 


call 

chamabasic 

;do novo comando 

compara 

call 

compstring 

;compara com a lista de novos 
;comandos 

aborta 

pop 

hl 

;recupera os registros salvos 
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pop 

de 

1 

pop 

bc 

9 

pop 

af 

í 

ret 


;retorna ao BASIC 


;a rotina compstring é a responsável pela localização da 

;rotina do novo comando 



compstring 


ld 

(auxiliar), hl 

;salva o pont. do BASIC 


ld 

ld 

hl, lista 

bc.endlista-lista 

;hl aponta p/ lista de 
;comandos 

;bc«tamanho da lista 

compstrl 

ld 

de, (auxiliar) 

;de aponta p / comando em 
;BASIC 


ld 

cpir 

a, (de) 

;obtém o primeiro byte 
;tenta encontrá-lo na 
;lista 


)P 

po, naoachei 

;se bc=0 -> não achou 

compstr2 

inc 

de 

;achou o primeiro e 
parte 


ld 

a, (de) 

para a comparação dos 


cp 

(hl) 

;demais caracteres. Vai 
para 


jP 

nz, compstrl 

pompstrl se achar um 
;byte diferente. 


inc 

hl 

;Caso contrário, 


ld 

a, (hl) 

pontinua até o fim do 
pomando. 


cp 

#00 

;Se chegou ao fim e, 


JP 

z, achei 

;então, achou o comando 
;na lista. 


ip 

compstr2 

;Caso contrário, compara 

naoachei 

ret 


;o próximo byte. 

achei 

inc 

hl 

;Se achou, obtém o 
;endereço 


ld 

c,(hl) 

;de entrada da rotina 


inc 

hl 

polocando-o em BC 


ld 

b.(hl) 

9 


pop 

af 

;retira da pilha o 
;endereço de 


push 

bc 

jretorno para a rotina 
;erro e 

poloca na pilha o 
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;endereço de 
;entrada da rotina do 
;novo comando 
;guarda o ponteiro 
;do BASIC 
jtransfere o ponteiro 
;para HL 

;usa RET para dar um 
;jump 

;para o endereço contido 
;BC que foi salvo na 
;pilha 


;a rotina lecomandos ó a responsável pela interpretação dos 
.■valores que se seguem ao nome do novo comando. Os valores 
;devem estar separados por virgulas. Na entrada, o par IX 
;aponta para uma tabela com valores default e o registro B 
;contóm o número de valores a interpretar 

lecomandos 



push 

ix 

;salva o par IX 

lecoman_1 

push 

ix 


ld 

ix.chrgtr 

;obtóm um valor 


call 

chamabasic 



pop 

ix 

,-recupera o ponteiro IX 


K 

z,lecoman_4 

;Se não houver valor, vai para 
;lecoman_4 


cp 

m m 

9 

;é vírgula? 


jr 

z.lecoman 3 

;Sim, assume o default 


dec 

hl 

;Não, obtém o valor 


push 

ix 

;salva o ponteiro 


push 

bc 

;salva o contador 


ld 

ix.evlexp 

;obtém o valor 


call 

chamabasic 

1 


pop 

bc 

;recupera o valor 


pop 

ix 

;recupera o ponteiro 


ld 

a,e 

;a«valor interpretado 


ld 

(ix+#00),a 

;coloca-o na tabela 

lecoman_3 

inc 

ix 

;incrementa o ponteiro 

lecoman_4 

djnz 

lecoman_1 

;repete para os demais 
;valores 

pop 

ix 

;recupera o ponteiro salvo 


ret 


;retorna 


ld (auxiliar), de 

ex de, hl 

ret 
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;a rotina erro_05 emite a mensagem de chamada ilegal 


erro_05 

ld a,#05 

ld (errflg), a 

jp voltaerro 


;a=código do erro 
;salva o erro em errflg 
;vai para voltaerro 


;a rotina voltaerro substitui o erro original por um outro 
voltaerro 


pop 

hl 

jrecupera os pares 

pop 

de 

;salvos no início da 

pop 

bc 

jrotina erro 

pop 

af 

f 

ld 

a, (errflg) 

;a=erro a ser emitido 

ld 

e,a 

;e-erro a ser emitido 

ret 


;volta para a rotina 


;de manipulação de erros 
;do interpretador BASIC 


;a rotina volta promove a volta ao BASIC sem que haja 
jinterrupção no processamento, ou seja, sem que o sistema 
;detecte o erro ocorrido 


dec 

hl 

;hl aponta para o final 
;do último comando 

xor 

a 

;modifica para nenhum erro 

ld 

(errflg), a 

;ocorrido 

pop 

de 

jrecupera os registros 

pop 

de 

jsalvos no início da rotina 

pop 

bc 

jerro. Note que hl não é 

pop 

af 

jrecuperado. 

pop 

de 

jobtém o end. de retorno da 
jnossa rotina para a rotina 
;de chaveamento de slots 

pop 

bc 

jobtém o end. de retorno da 
jrotina de chaveamento de 
jslots para RST #30 

pop 

af 

jobtém o end. de retorno de 
;RST #30 para o hook 

pop 

ix 

jobtém/destrói o end. de 
jretorno do hook para a 
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pop ix 


push af 

push bc 

push de 

ld ix.chrgtr 

jp chamabasic 

ret 


;rotina 

;de erro do interpretador 
;BASIC 

;obtóm/destrói o end. de 
;retorno 

;da rotina de erro para o 
jinterpretador BASIC 
;repõe na pilha os end. de 
;retorno salvos nestes 
;registros 

;faz com que hl aponte 
;para o próximo comando 
;e retorna ao BASIC 


chamabasic 


inverte 


inverteO 


call caibas 
ret 


ld 

b,#04 

ld 

ix.tabinver 

call 

lecomandos 

ld 

a,(ix+#00) 

ld 

(grpacx), a 

ld 

a,(ix+#01) 

ld 

(grpacy), a 

ld 

a,(ix+#02) 

ld 

(compstr), a 

cp 

33 

jP 

nc,erro_05 

ld 

(auxiliar), hl 

ld 

a,(ix+#03) 

or 

a 

jr 

z, inverteO 

ld 

a, (inversão) 

or 

a 

jr 

z, inverteO 

ld 

hl,(bufnor+#Ol) 

call 

setvdpwt 

ld 

hl,bufnor+#03 

ld 

a.(bufnor) 

ld 

b.a 

call 

esclinha 

ld • 

a,#ff 

ld 

(inversão), a 


;chama a rotina caibas 
;retorna 


;b-núm. de valores 
;ix=tabeladefault 
;lê os 4 valores 
;obtém a coord. x 
;salva em grpacx 
;obtóm a coord. y 
;salva em grpacy 
;obtém o comp. da string 
;salva em compstr 
;é >= 33? 

;Sim, chamada ilegal 
;salva ptr. do BASIC 
;a=flag de recuperação 
;está setada? 

;Não, vai para inverteO 
;Sim, já foi feita alguma 
;inversão? 

;Não, vai para inverteO 
;Sim, obtém a pos. da string 
;antiga e prepara o VDP 
;hl->inícioda string antiga 
;a=comp. da string antiga 
;a=comp. da string antiga 
jescreve a string antiga 
;no modo normal 
> 

;sinaliza uma inversão 
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inverte3 


loopinvl 


loopinv2 


loopinv3 


ld 

hl, (auxiliar) 

;hl=ponteiro do BASIC 

ld 

a.(compstr) 

;a=comp. da string 

or 

a 

;comprimento=0? 

jp 

z.volta 

;Sim, volta com erro 

ld 

ix.bufnor 

;Não, ajusta os buffers 

ld 

iy.bufinv 

;para a string normal e 

ld 

(ix+#00),a 

;para a string invertida 

ld 

(iy+#00),a 

;com o comprimento da 

call 

calpadvid 

;calcula os padrões do vídeo 

ld 

a.(grpacx) 

;obtém a coord. x 

ld 

e,a 

jcoloca em e 

ld 

a, (colunas) 

;obtém o número de colunas 

cp 

e 

;compara com o valor lido 

jp 

c,erro_05 

;Se valor lido > colunas 



;volta com erro 

ld 

a.(grpacy) 

jobtém a coord. y 

cp 

24 

;ó maior do que 23? 

jp 

nc,erro_05 

;Sim, volta com erro 

call 

lefrase 

;lé a string a inverter 

di 


;desabilita as interrupções 

ld 

hl.(tabpad) 

;hl=end. da tab. de padrões 

push 

hl 

;salva o end. da tab. de 



padrões 

ld 

de,#e0*8 

;calcula o endereço do 

add 

hl.de 

jdesenho do caractere #e0 

ex 

de.hl 

;de=end. do des. do carac. #e0 

ld 

c,#eO 

;c»#e0 

ld 

b,(ix+#00) 

;b=número de carac. da string 

ld 

ix,bufnor+#03 

;ix=endereço da string normal 

ld 

iy,bufinv+#03 

;iy«end. da string invertida 

pop 

hl 

jrecupera hl 

push 

bc 

;salva bc 

push 

hl 

;salva hl 

push 

de 

;salva de 

ld 

de, #0008 

;bytes para o desenho de cada 



;caractere 

ld 

b,(ix+#00) 

;b=caractere a inverter 

add 

hl.de 

;calcula o endereço desse 

djnz 

loopinv2 

;caractere 

pop 

de 

;recuperade 

ld 

b,#08 

prepara a modificação 

call 

rdvram 

;lê o byte original 

cpl 


;inverte 

-ex 

de, hl 

;transfere para o novo 

call 

wtvram 

;destino 

ex 

de, hl 


Inc 

hl 

;hl»hl+1 
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envinvert 


tabinver 


newcls 


inc 

de 

djnz 

loopinv3 

pop 

hl 

pop 

bc 

ld 

(iy+#00),c 

inc 

c 

inc 

ix 

inc 

iy 

djnz 

loopinvl 

ld 

iy.bufinv 

ld 

l.(iy+#01) 

ld 

h,(iy+#02) 

call 

setvdpwt 

ld 

b,(iy+#00) 

ld 

hl,bufinv+#03 

call 

esclinha 

ei 


ld 

hl.(auxiliar) 

jp 

volta 


defb 

#00 

defb 

#00 

defb 

#00 

defb 

#00 


ld 

b,#02 

ld 

ix.tabnewcls 

call 

lecomandos 

ld 

(auxiliar).hl 

ld 

a,(ix+#00) 

cp 

#02 

jP 

nc,erro_05 

call 

calpadvid 

ld 

a, (colunas) 

ld 

e, a 

ld 

a,(ix+#01) 

inc 

e 

cp 

e 

jP 

nc,erro_05 


;de-de+1 
;b«b-1 
;recupera hl 
jrecupera bc 
;modifica a string 
;c-c+1 

;aponta para o próximo 
;caracter 

;repete até o fim da string 

;recupera o ponteiro do 
;buffer 

;hl«end. de escrita da string 
» 

;ajusta o VDP para escrita 
;b*núm. de carac. da string 
;end. da string 
;escreve a frase invertida 
;habilita as interrupções 
;recupera ptr. do BASIC 
;volta para o BASIC 


posição x 
;posição y 
;comprimento 
;flag de restauração 


;b-núm. de valores 
;ix->tab. de valores default 

t 

;salva o ponteiro do BASIC 
;obtém o primeiro valor 
;verifica o limite 
;se estiver fora, volta com 
;erro 

;calcula os padrões do vídeo 
;obtóm o número de colunas 
;e=número de colunas 
;a»número de rotações 

;rotações>colunas? 

;Sim, volta com erro 
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or 

a 

JP 

z.volta 

ld 

a,(ix+#00) 

or 

a 

jp 

nz,newcls_0 


;Zero rotações? 

;Sim, volta sem erro 
;a=tipo de rotação 
;é zero (esquerda)? 
;Não, vai para newcls_0 


;newcls_1 faz o cis com rotação para a esquerda 
newcls 1 


bopcls_1 1 


loopcls_1 2 


di 


ld 

b,(ix+#01) 

push 

bc 

ld 

hl.(txtnam) 

ld 

a.(colunas) 

ld 

e,a 

ld 

d,#00 

ld 

a.(crtcnt) 

ld 

b,a 

push 

bc 

call 

setvdprd 

ld 

a.(colunas) 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

b,a 

call 

lelinha 

ld 

a,#20 

ld 

(hl), a 

pop 

hl 

pop 

de 

call 

setvdpwt 

push 

de 

push 

hl 

ld 

hl,bufferlinha+1 

ld 

a, (colunas) 

ld 

b.a 

call 

esclinha 

pop 

hl 

pop 

de 

add 

hl.de 

pop 

bc 

djnz 

loopcls_1 2 


;desabilita as interrupções 
;b«número de rotações 

;salva contador externo 
;hl=end. tabela de nomes 
;a-núm. de colunas 
;de=núm. de colunas 

ja-número de linhas 
;b=número de linhas 

;salva contador intermediário 
jprepara o VDP para leitura 
;a=núm. de colunas 
;salva de 
;salva hl 

;hl aponta para o buffer 
;b=núm. de colunas 
;lê uma linha 

;a=carac. espaço em branco 
;coloca o espaço na últ. pos. 
jrecupera hl 
jrecupera de 

prepara o VDP para escrita 
;salva de 
;salva hl 

;hl aponta para o buffer+1 
;a=núm. de colunas 
;b=núm. de colunas 
;envia a linha já rotada 
jrecupera hl 
jrecupera de 

;hl aponta para a próx. linha 
jrecupera bc 

jrepete para as demais linhas 
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pop 

bc ;r 

ecupera bc 


djnz 

loopcls_1 1 ;r 

epete ató terminar todas 




as rotações 


ei 


labilita as interrupções 


ld 

hl, (auxiliar) ;i 

ecupera o ponteiro do BASIC 


jP 

volta ;i 

etorna ao BASIC 

;newcls_0 faz o cis com rotação para a direita 


newcls_0 





di 

; 

desabilita as interrupções 


ld 

b,(ix+#01) ] 

b=número de rotações 

bopcls_01 





push 

bc 

salva contador externo 


ld 

hl,(txtnam) 

il*end. tabela de nomes 


ld 

a.(colunas) 

a=núm. de colunas 


ld 

e,a 

de=núm. de colunas 


ld 

d, #00 



ld 

a.(crtcnt) 

a=número de linhas 


ld 

b.a 

o=número de linhas 

loopcls_02 





push 

bc 

salva contador intermediário 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a.(colunas) 

a*núm. de colunas 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha+1 

il aponta para o buffer+1 


ld 

b.a 

b-núm. de colunas 


call 

lelinha 

ê uma linha 


ld 

a, #20 

a=carac. de espaço em branco 


ld 

hl.bufferlinha 

hl aponta para o buffer 


ld 

(hl), a 

coloca o espaço na prim. 




posição 


pop 

hl 

recupera hl 


pop 

de 

recupera de 


call 

setvdpwt 

prepara o VDP para escrita 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha 

hl aponta para o buffer 


ld 

a, (colunas) 

a«núm. de colunas 


ld 

b,a 

b=núm. de colunas 


call 

esclinha 

envia a linha já rotada 


pop 

hl 

recupera hl 


pop 

de 

recupera de 


add 

hl.de 

hl aponta para a próx. linha 
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tabnewcls 


pop 

bc 

;recupera bc 

djnz 

loopcls_02 

;repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

loopcls_01 

;repete até terminar todas 
;as rotações 

ei 

hl, (auxiliar) 

;habilita as interrupções 

ld 

;recupera o ponteiro do BASIC 

jp 

volta 

;retorna ao BASIC 

defb 

#00 

;tipo de cis 

defb 

#00 

jnúmero de rotações 


;a rotina calpadvid calcula os padrões do vídeo: a tabela de 
padrões e o número de colunas. Os valores resultantes são 
;colocados em tabpad e colunas, respectivamente. 


calpadvid 

ex 

af.af’ 

;salva o registro af 


exx 


;salva os demais registros 


ld 

hl.(txtcgp) 

;obtém a tab. de padrões 


ld 

a, (versão) 

;obtém a versão 


or 

a 

;do MSX. ÉMSX1? 


jr 

z,calpad_1 

;Sim, vai para calpad_1 


ld 

a.(linlen) 

;obtém o tamanho da tela 


cp 

41 

;0 MSX2 está em 80 colunas 


jr 

c,calpad_1 

;Não, vai para calpad l 


ld 

a, 80 

;Sim, a=80 colunas 


add 

hl, hl 

;calcula novo end. da 
gabela de padrões 

calpad_1 

jr 

ld 

calpad_2 
a, 40 

;vai para ca!pad_2 
;a=40 colunas 

calpad_2 

ld 

(colunas), a 

;salva as colunas 


ld 

(tabpad), hl 

;salva o end. da tab. de 
padrões 


exx 


;recupera os registros salvos 


ex 

af.af ’ 

» 


ret 


;retorna 


;a rotina lefrase transporta da tela para o buffer bufnor 
;a sentença a inverter 
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lefrase 





push 

af 

,alva os registros 


push 

bc 

nodificados por esta 


push 

de 

otina 


push 

hl 



call 

calendfra 

:alcula o end. da string 




ia VRAM 


call 

setvdprd 

trepara o VDP para leitura 


ld 

b,(ix+#00) 

Dbtém o comp. da string 


ld 

hl,bufnor+#03 ; 

hl*>início da string 


call 

lelinha 

ê a string 


pop 

hl 

recupera os registros 


pop 

de 

salvos 


pop 

bc 



pop 

af 



ret 


retorna 

•a rotina calendfra, baseada nas coordenadas fornecidas, calcula o endereço da sentença a 

;inverter na memória VRAM 


calendfra 





ld 

h,#00 

calcula o end. da string 


ld 

d.h 

na memória VRAM. baseada 


ld 

a.(grpacy) 

nas coordenadas passadas 


ld 

U 



or 

a 

string está na linha 0? 


jr 

z, calendl 

Sim, vai para calendl 


ld 

l,h 

vJão, calcula o end. do 


ld 

b.a 

nício da linha 


ld 

a, (colunas) 



ld 

e.a 


loopcaM 

add 

hl.de 



djnz 

loopcal_1 


calendl ld 

a.(grpacx) 

obtém a coord. x 


ld 

e,a 

e=coord. x 


add 

hl.de 

soma ao end. já encontrado 


ld 

(bufnor+#01) 

hl.salva no buffer das strings 


ld 

(bufinv+#01) 

hl;normal e invertida 


ret 


retorna 


;início da lista com os nomes dos novos comandos e 
;endereços de chamada 
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lista 


endlista 


defm 

"REVERSE 1 

defb 

#00 

defw 

inverte 

defm 

"CLRSCR" 

defb 

#00 

defw 

newcls 

defb 

#00 


;nome do comando 
,1im do nome 
;end. da rotina 
;nome do comando 
,1im do nome 

.•fim da lista 


;rotinas para o acesso direto à RAM de vídeo 


rdvram 


call setvdprd 

in a, (#98) 

ret 


;ajusta o VDP para leitura 

;lê um byte 

;retorna 


wtvram 


setvdprd 


rdvram 1 


push 

af 

;salva o dado a enviar 

call 

setvdpwt 

;ajusta o VDP para escrita 

pop 

af 

jrecupera o dado a enviar 

out 

ret 

(#98), a 

;envia 

jretorna 

ld 

a.(versao) 

;obtóm a versão do MSX 

or 

a 

;é MSX1? 

jr 

z, rdvram 1 

;Sim, vai para rdvram 1 

xor 

a 

;Não, inicializa o VDP 

out 

ld 

out 

(#99), a 
a,#8e 
(#99), a 

;do MSX2 

ld 

a.l 

informa ao 

out 

(#99), a 

VDP o endereço na 

ld 

a,h 

VRAM onde será 

and 

out 

#3f - 
(#99), a 

lido o dado 

ex 

(sp).hl 

demora para 

ex 

ret 

(sp).hl 

sincronização 


setvdpwt 


a, (versão) ;obtém a versão do MSX 

a ;é MSX1? 
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jr 

z, wtvraml 

;Sim, vai para wtvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


wtvraml ld 

a.l 

;informa ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99), a 

1 

ex 

(sp).hl 

;demorapara 

ex 

(sp).hl 

jsincronização 

ret 


;retorna 


;a rotina lelinha transporta uma linha da VRAM para a RAM 

lelinha 

in 

a, (#98) 

;lê o carac. da VRAM 


ld 

(hl), a 

;salva-o no buffer 


inc 

hl 

;incrementa o ponteiro 


djnz 

lelinha 

;prepara a próxima leitura 


ret 


;retorna 

;a rotina esclinha transporta uma linha da RAM para a VRAM 

esclinha 

ld 

a, (hl) 

;lê o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro 


djnz 

esclinha 

prepara a próxima escrita 


ret 


;retorna 

;área das variáveis usadas no programa 


bufnor 

defb 

#00 

^amanho da string 


defw 

#0000 

;posição de escrita 


defs 

33 

;string 

bufinv 

defb 

#00 

^amanho da string 


defw 

#0000 

;posição de escrita 
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defs 

33 

inversão defb 

#00 


compstr defb 

#00 


colunas defb 

#00 


tabpad defw 

#0000 


auxiliar defw 

#0000 


bufferlinha 

defs 

81 

fim 

equ 

$ 


jstring 

;flag de campo já invertido 
;comprimento da string 
;número de colunas na tela 
;endereço da tab. de padrões 
;ponteiro do BASIC 
;buffer de linha da tela 


ri S Dc^D Sm llnhas data d0 código-objeto do programa que Implementa o comando 

CLHSCRl 

10 FOR A%«íHD000 TO 6HD3D4 
20 READ B$ 

30 POKE A% , VAL ( " tH "+B$) 

40 NEXT A% 

50 BSAVE "PROG23.BIN", 4HD000, 4HD3D4 

100 DATA F3 f DB, A8, 47, E6, F0, 0F, 0F, 0F, 0F, B0, D3, A8, E6, 03, 32 
110 DATA 2E, DO, 78,21, 2D, DO, 11, Bl, FF, 01, 05, 00, ED, BO, 21, 32 
120 DATA DO, 11, 00, 40, 01, A2, 03, ED, BO, D3, A8,FB, C9,F7, 00, 00 
130 DATA 40, C9, F5, C5, D5, E5, 7B, FE, 02 , C2, 20,40, 2A, AF, F6, 7E 
140 DATA B7, C2, 16, 40, 23, 23, 23, 23, DD, 21, 66, 46, CD, AD, 40, CD 
150 DATA 25, 40, El , Dl, Cl , Fl, C9, 22, 4E, 43, 21, 9F, 42, 01, 13, 00 
160 DATA ED, 5B, 4E, 43, IA, ED, BI , E2 , 48, 40, 13, IA, BE, C2, 2E, 40 
170 DATA 23, 7E, FE, 00, CA, 49, 40, C3, 38, 40, C9, 23, 4E, 23, 46, Fl 
180 DATA C5, ED, 53, 4E, 43, EB, C9, DD, E5, DD, E5, DD, 21, 66, 46, CD 
190 DATA AD, 40, DD, El, 28, IA, FE, 2C, 28, 12, 2B, DD, E5, C5, DD, 21 
200 DATA OE, 52, CD, AD, 40, Cl, DD, El, 7B, DD, 77,00, DD, 23, 10, D9 
210 DATA DD,E1,C9,3E,05,32,14,F4,C3,89,40,E1,D1,C1,F1,3A 
220 DATA 14 , F4, 5F, C9, 2B, AF , 32, 14, F4, Dl, Dl , Cl, Fl , Dl, Cl, Fl 
230 DATA DD, El, DD, El, F5, C5, D5, DD, 21,66, 46, C3, AD, 40, C9, CD 
240 DATA 59, 01, C9, 06, 04, DD, 21,83,41, CD, 55,40, DD, 7E, 00, 32 
250 DATA B7 , FC, DD, 7E, 01,32, B9, FC, DD, 7E, 02, 32, 4A, 43, FE, 21 
260 DATA D2, 81, 40,22, 4E, 43, DD, 7E, 03, B7, 28,16, 3A, 49, 43, B7 
270 DATA 28, 10, 2A, 02, 43, CD, D9, 42, 21, 04, 43, 3A, 01, 43, 47, CD 
280 DATA FA, 42, 3E, FF, 32, 49, 43, 2A, 4E, 43, 3A, 4A, 43, B7, CA, 92 
290 DATA 40, DD, 21, 01, 43, FD, 21, 25, 43, DD, 77, 00, FD, 77, 00, CD 
300 DATA 46,42, 3A, B7, FC, 5F , 3A, 4B, 43, BB, DA, 81,40, 3A, B9, FC 
310 DATA FE, 18, D2, 81, 40, CD, 68, 42, F3, 2A, 4C, 43, E5, 11, 00, 07 
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320 DATA 19, EB, 0E,E0, DD, 46, 
330 DATA C5,E5, D5, 11, 08, 00, 
340 DATA B3 , 42 , 2F , EB, CD, B9, 
350 DATA 00, 0C, DD, 23, FD, 23, 
360 DATA 66,02, CD, D9, 42 , FD, 
370 DATA 4E,43,C3, 92, 40,00, 
380 DATA 55, 40, 22, 4E, 43, DD, 
390 DATA 3A, 4B, 43 , 5F , DD, 7E, 
400 DATA DD, 7E, 00 , B7 , C2 , FB, 
410 DATA 4B, 43, 5F ,16, 00, 3A, 
420 DATA D5,E5, 21,50,43,47, 
430 DATA 42 , D5, E5 , 21, 51 , 43, 
440 DATA Cl, 10, D6, Cl, 10, C5, 
450 DATA 01, C5, 2A,B3,F3, 3A, 
460 DATA CD, Cl, 42 , 3A, 4B, 43, 
470 DATA 20, 21, 50, 43, 77, El, 
480 DATA 4B, 43, 47,CD,FA, 42, 
490 DATA 2A, 4E, 43, C3, 92,40, 
500 DATA B7 , 28, OC, 3A, BO, F3, 
510 DATA 28, 32, 4B, 43, 22, 4C, 
520 DATA 42 , CD, Cl ,42, DD, 46, 
530 DATA F1 , C9, 26 , 00, 54 , 3A, 
540 DATA 43, 5F, 19,10, FD,3A, 
550 DATA C9, 52, 45,56, 45,52, 
560 DATA 52, 00, 87, 41, 00, CD, 
570 DATA D3, 98, C9, 3A, 2D, 00, 
580 DATA 7D,D3, 99,7C,E6,3F, 
590 DATA 07 , AF, D3, 99, 3E, 8E, 
600 DATA D3, 99, E3 , E3, C9, DB, 
610 DATA 10, FA, C9, 00, 00, 00, 
620 DATA 00,00,00,00,00,00, 
630 DATA 00,00,00,00,00,00, 
640 DATA 00,00,00,00,00,00, 
650 DATA 00,00,00,00,00,00, 
660 DATA 00,00,00,00,00,00, 
670 DATA 00,00,00,00,00,00, 
680 DATA 00,00,00,00,00,00, 
690 DATA 00,00,00,00,00,00, 
700 DATA 00,00,00,00,00,00, 
710 DATA 00,00,00,23,39 


00, DD, 21, 04, 43, FD, 21,28, 43, El 
DD, 46, 00, 19, 10, FD, Dl, 06, 08, CD 
42, EB, 23,13, 10, F3, El , Cl , FD, 71 
10, D8, FD, 21, 25, 43, FD, 6E, 01, FD 
46, 00,21,28, 43, CD, FA, 42, FB, 2A 
00, 00, 00, 06, 02, DD, 21, 44, 42, CD 
7E, 00, FE, 02, D2, 81, 40, CD, 46, 42 
01 , 1C, BB, D2, 81,40, B7 , CA, 92,40 
41 , F3, DD, 46, 01 , C5, 2A, B3, F3, 3A 
B1,F3, 47, C5, CD, Cl, 42, 3A, 4B, 43 
CD,F3, 42, 3E, 20, 77, El, Dl, CD, D9 
3A, 4B, 43,47, CD,FA, 42,E1,D1,19 
FB, 2A, 4E, 43, C3, 92, 40, F3, DD, 46 
4B, 43, 5F, 16, 00, 3A, B1,F3, 47 , C5 
D5, E5, 21 , 51, 43, 47, CD, F3, 42, 3E 
Dl , CD, D9, 42, D5, E5, 21,50,43, 3A 
El , Dl, 19, Cl, 10, D3, Cl ,10, C2 , FB 
00, 00, 08 , D9, 2A, B7, F3, 3A, 2D, 00 
FE, 29, 38, 05, 3E, 50, 29, 18, 02, 3E 
43, D9, 08, C9, F5, C5, D5 , E5, CD, 80 
00,21, 04, 43, CD, F3, 42,E1,D1,C1 
B9,FC, 6F,B7, 28, 09, 6C, 47, 3A, 4B 
B7,FC, 5F, 19, 22, 02, 43, 22, 26, 43 
53,45, 00, Bl, 40, 43, 4C, 52, 53, 43 
Cl, 42, DB, 98, C9,F5, CD,D9, 42, F1 
B7, 28, 07, AF, D3, 99,3E,8E,D3, 99 
D3, 99, E3 , E3, C9, 3A, 2D, 00, B7 , 28 
D3 , 99, 7D, D3, 99, 7C, E6, 3F, F6, 40 
98,77,23,10, FA, C9, 7E, D3, 98,23 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00,00, 00,00, 00, 00, 00, 00, 00, 00 
00,00, 00, 00, 00,00, 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00,00, 00, 00, 00, 00, 00,00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00,00, 00,00, 00,00, 00,00, 00, 00 


Antes de passar para o próximo capítulo, gostaria de colocar novamente as duas exigências 
no uso de comandos implementados pelo desvio do vetor de erro. São elas: 

1 .Nunca começar o nome de um novo comando com um token. Se esta exigência não for cum- 
prida, o interpretador BASIC irá gerar uma mensagem de erro de sintaxe, mesmo que o vetor 
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de erro esteja desviado. O comando SAVESCR ó um exemplo típico, já que a palavra SAVE 

* '° k ® n do interpretador BASIC. Para contornar este problema, sugiro a inversão para 

oCRSAVE. 


2.Nunca use um comando resultante do desvio do vetor de erro após o comando THEN. Dê 
preferência ao uso do comando GOSUB, que eliminará esse problema e, por tabela promo- 
verá uma maior estruturação do seu programa em BASIC. 


Resta agora apresentar um pequeno programa que nos permita conhecer os bytes/carac- 
teres que formam um determinado comando criado por nós. Particularmente, utilizo um peque- 
no programa em BASIC para tal tarefa. Vamos, então, à listagem desse programa: 


Listagem do programa em BASIC para descobrir os bytes/caracteres que formam um 
novo comando: 

100 GOTO 110:SCRSAVE 
1 10 A%-&H800B 
120 CLS.KEYOFF 

130 S$-"FORMAÇÃO DO NOVO COMANDO" 

140 IF PEEK (&HF3B0)> 40 THEN CP%«80 ELSE CP%-40 
150 LOCATE (CP%-LEN(S$))/2,7:PRINT S$ 

1 60 LOCATE 0,9:PRINT "Bytes :" 

1 70 LOCATE 0, 1 1 :PRINT "Caracteres :" 

180 CT%-0 

190 IF PEEK(A%)=0 THEN END 

200 LOCATE 13+CT%,9:PRINT RIGHT$("00"+HEX$(PEEK(A%)) 2) 

210 LOCATE 13+CT%,1 liPRINT CHR$(PEEK(A%)) 

220 A%=A%+1 :CT%-CT%+3 
230 GOTO 190 

Antes de executar o programa acima, certifique-se de ter entrado com a listagem exata- 
mente como apresentada, já que este é um passo imprescindível para a execução correta do 
programa. Observe que você deve entrar com o comando a ser criado na linha 100 logo após 
a sentença GOTO 1 1 0:. Na listagem acima, o exemplo usado foi o do comando SCRSAVE O 
uso deste programa ficará claro nos exemplos dos capítulos seguintes. 

Com a listagem acima, terminamos a apresentação e estudo dos hooks no MSX. No próxi- 
mo capítulo, vamos nos dedicar ao estudo do controle dos dispositivos de seleção, mais es- 
pecificamente das teclas do cursor e dos joysticks. 


BIBLIOGRAFIA RECOMENDADA 


INTRODUÇÃO À LINGUAGEM DE MÁQUINA PARA MSX - 
de Janeiro - CIÊNCIA MODERNA COMPUTAÇÃO LTDA. 


Eduardo Alberto Barbosa - Rio 


Capítulo 3 


OS DISPOSITIVOS DE SELEÇÃO 


Como já afirmei no primeiro capítulo, ó cada vez mais freqüente o uso de uma interface 
amigável como meio de programação/utilização do microcomputador. Ocorre que, embora a 
última palavra esteja na interface gráfica, podemos fazer maravilhas unindo a simplicidade da 
tela de texto aos princípios de uma interface amigável. O que proponho é usar os dispositivos 
para controle de direção (teclas do cursor ou joystick) para fazer a seleção apropriada num 
menu. Vou exemplificar, para tornar mais clara a minha proposta. Você já deve ter observado 
que os programas mais antigos fazem as seleções com menus do tipo: 

1. Carregar o processador de textos 

2. Carregar a planilha 

3. Carregar o programa gráfico 

4. Sair 


Escolha uma das opções acima (1-4):_ 

onde você deverá pressionar um número no teclado para executar uma determinada opção. 
Este método foi a forma mais amigável de interação com o usuário durante alguns anos, até 
o surgimento de uma nova interface mais versátil e clara: a interface que emprega a inversão 
de vídeo para a opção atual. A principal vantagem deste último método está em permitir uma 
visualização mais rápida e nítida da escolha atual, em contraste com o método anterior, que 
não permite tal recurso. A outra vantagem do método por inversão se situa na utilização so- 
mente das teclas do cursor ou joystick para selecionar as diversas opções, ao contrário do 
método anterior, que exige a utilização do teclado. Como você já deve estar prevendo, a técni- 
ca de escolha por inversão de vídeo é muito mais amigável e direta, tornando o seu uso pra- 
ticamente obrigatório. "Bem, Eduardo, é realmente tudo muito bonito, mas como usar tal técnica 
no MSX?" Eu respondo com outra pergunta: Que tal criar um comando específico para essa 
tarefa? Você já deve ter percebido que a chave está na inversão de vídeo, mas este é um as- 
sunto que já dominamos desde o primeiro capítulo. Partindo deste princípio, proponho a criação 
do seguinte comando: 


MENU XI, Y1,X2, Y2,Comp,Des, Vlnt 
onde 
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XI representa a posição x do primeiro caractere da primeira opção do menu; 

Y1 representa a posição y do primeiro caractere da primeira opção do menu; 

X2 representa a posição x do primeiro caractere da última opção do menu; 

Y2 representa a posição y do primeiro caractere da última opção do menu; 

Comp representa o comprimento (em caracteres) da maior opção do menu; 

Des representa o deslocamento (vertical ou horizontal) de uma opção para outra, e; 
Vlnt representa a variável Inteira que receberá o valor numérico da seleção feita. 


O COMANDO WIN DOW 

O comando MENU será implementado utilizando a nossa estrutura para o desvio do vetor 
de erro. Uma vez implementado, o comando MENU facilitará em muito o projeto de programas 
mais amigáveis em BASIC. Porém, antes de partir para as explicações e listagens do coman- 
do acima, gostaria de implementar um outro comando, o comando WINDOW, que, como o 
nome já afirma, trata-se de um comando para desenhar janelas na tela de texto. Tendo em 
vista que a rotina para o desenho de janelas já está pronta desde o primeiro capítulo, só nos 
resta programar a leitura dos valores correspondentes às coordenadas e ao tipo de apresen- 
tação. Para tanto, vamos criar um novo comando com a seguinte sintaxe: 

WINDOW XI, Y1,X2, Y2, Tipo 

onde 

XI representa a posição x do canto superior esquerdo da janela a ser criada; 

Y1 representa a posição y do canto superior esquerdo da janela a ser criada; 

X2 representa a posição x do canto inferior direito da janela a ser criada; 

Y2 representa a posição y do canto inferior direito da janela a ser criada, e; 

Tipo representa o tipo da apresentação: com ou sem explosão. 

Embora os comandos acima utilizem uma entrada de coordenadas que não é padrão, pois 
o normal seria a entrada de pares de coordenadas entre parênteses tal como acontece no co- 
mando UNE, por exemplo, vamos utilizar este método não-padrão por duas razões: 
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1.0 interpretador BASIC não aceitaria a entrada de um comando como 
WINDOW (30,0M50,1 0),1 

já que interpretaria os argumentos (30,0) como referência a uma matriz chamada window, o 
que resultaria num erro de subscrito fora de faixa. 

2.No Capítulo 2, desenvolvemos uma rotina chamada lecomandos, que interpreta os valores 
passados como argumentos e separados por vírgulas, então, por que reinventar a roda? 

Feitos os esclarecimentos, vamos às listagens do programa que implementa os comandos do 
Capítulo 2 acrescidos do comando WINDOW. 


Listagem em assembly Z-80 do código-fonte do programa que Implementa o comando 
WINDOW: 

programa que implementa o comando WINDOW 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG24.BIN-PROG24.GEN 

;onde PROG24.GEN é o nome do arquivo-texto com esta 
llistagem 


versão 

equ 

#002d 


linlen 

equ 

#f3b0 


txtnam 

equ 

#f3b3 


txtcgp 

equ 

#f3b7 


calslt 

equ 

#001 c 


caibas 

equ 

#0159 


chrgtr 

equ 

#4666 


evlexp 

equ 

#520e 


getcrd 

equ 

#579c 


dridef 

equ 

#f247 


crtcnt 

equ 

#f3b1 


errflg 

equ 

#1414 


savtxt 

equ 

#f6af 


scrmod 

equ 

#fcaf 


grpacx 

equ 

#fcb7 


grpacy 

equ 

#fcb9 


hkeyi 

equ 

#fd9a 


herro 

equ 

#ffb1 



defb 

#fe 

;simula em CP/M 


defw 

inicio 

;o cabecalho de 
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defw fim-erro+rotina+#01 

;um arquivo 


defw 

inicio ;.BIN 

org 

#d000 


inicio 



di 


desabilita as interrupções 

in 

a,(#a8) 

lê a atual configuração dos 

ld 

b,a 

slots e prepara para ativar 

and 

#f0 

a página 1 do slot da RAM 

rrca 



rrca 



rrca 



rrca 



or 

b 


out 

(#a8),a 

ativa as páginas 1 , 2 e 3 em 

and 

#03 

RAM e descobre o slot onde 

ld 

(slot), a 

se encontram os 64Kb de RAM 

ld 

a,b 

a=config. inicial dos slots 

ld 

hl.novohook 

promove o desvio do hook 

ld 

de.herro 

dos erros 

ld 

bc,0005 


Idir 



ld 

hl.rotina 

■transfere a rotina para a 

ld 

de, erro 

página 1 da RAM 

ld 

bc,fim-erro+#01 


Idir 



out 

(#a8),a 

habilita a config. original 

ei 


habilita as interrupções 

ret 


retorna ao BASIC 


novohook 

defb 

#f7 

;RST #30 

slot 

defb 

#00 

jidentificação do slot 


defw 

erro 

;endereço de desvio 


defb 

#c9 

;RET 


rotina 


org 

#4000 

push 

af 


erro 


;salva os registros afetados 
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push 

bc 


push 

de 


push 

hl 

examerro 

ld 

a,e 


cp 

#02 


jp 

nz, aborta 

pegachar 

ld 

hl.(savtxt) 


ld 

a, (hl) 


or 

a 


jP 

nz.proxchar 

pula 

inc 

hl 


inc 

hl 


inc 

hl 


inc 

hl 

proxchar 

ld 

ix.chrgtr 


call 

chamabasic 

compara 

call 

compstring 

aborta 

pop 

hl 


pop 

de 


pop 

bc 


pop 

ret 

af 


;a=código do erro 
;é erro de sintaxe? 

;Não, volta ao BASIC 
;Sim, obtém a posição do 
Iponteiro do BASIC 
;é final de linha? 

» 

;Não, obtém o próximo carac. 
;Sim, pula as 4 posições 
;referentes ao número da 
;linha e ao end. da próxima 
;linha 

;obtém o primeiro caractere 
;do novo comando 
;compara com a lista de novos 
;comandos 

;recupera os registros salvos 


;retorna ao BASIC 


;a rotina compstring é a responsável pela localização da 
;rotina do novo comando 


compstring 

ld 

(auxiliar).hl 

;salva o pont. do BASIC 


ld 

hl, lista 

;hl aponta p / lista de 
;comandos 


ld 

bc.endlista-lista 

;bc«tamanho da lista 

compstrl 

ld 

de, (auxiliar) 

;de aponta p / comando em 
;BASIC 


ld 

a, (de) 

;obtém o primeiro byte 


cpir 


;tenta encontrá-lo na 
;lista 


JP 

po.naoachei 

;se bc=0 -> não achou 

compstr2 

inc 

de 

;achou o primeiro e 
parte 


ld 

a, (de) 

;para a comparação dos 


cp 

(hl) 

jdemais caracteres. Vai 
;para 


jP 

nz, compstrl 

;compstr1 se achar um 
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naoachei 

achei 


inc 

hl 

ld 

a, (hl) 

cp 

#00 

jp 

z, achei 

jP 

ret 

compstr2 

inc 

hl 

ld 

c.(hl) 

inc 

hl 

ld 

b.(hl) 

pop 

af 

push 

bc 


ld 

(auxiliar), de 

ex 

de, hl 

ret 



;byte diferente. 

;Caso contrário, 

;continua até o fim do 
;comando. 

;Se chegou ao fim e, 
;então, achou o comando 
;na lista. 

;Caso contrário, compara 
;o próximo byte. 

;Se achou, obtém o 
;endereço 

;de entrada da rotina, 
;colocando-o em BC 

f 

;retira da pilha o 
;endereço de 
;retorno para a rotina 
;erro e 

;coloca na pilha o 
;endereço de 
;entrada da rotina do 
;novo comando 
;guarda o ponteiro 
;do BASIC 
transfere o ponteiro 
;para HL 

;usa RET para dar um 
;jump 

;para o endereço contido 
;BC que foi salvo na 
;pilha 


;a rotina lecomandos é a responsável pela interpretação dos 
;valores que se seguem ao nome do novo comando. Os valores 
;devem estar separados por vírgulas. O par IX na entrada 
;aponta para uma tabela com valores default e o registro B 
;contóm o número de valores a interpretar 


lecomandos 

push 

ix 

;salva o par IX 

lecoman_1 

push 

ix 



ld 

ix.chrgtr 

;obtém um valor 


call 

chamabasic 



pop 

ix 

;recupera o ponteiro IX 


jr 

z,lecoman_4 

;Se não houver valor, vai para 


;lecoman_4 
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cp 

R R 

;ó vírgula? 


jr 

z.lecoman 3 

;Sim, assume o default 


dec 

hl 

;Não, obtém o valor 


push 

ix 

salva o ponteiro 


push 

bc 

;salva o contador 


ld 

ix.evlexp 

;obtóm o valor 


call 

chamabasic 

f 


pop 

bc 

;recupera o valor 


pop 

ix 

;recupera o ponteiro 


ld 

a,e 

;a-valor interpretado 


ld 

(ix+#00),a 

;coloca-o na tabela 

lecoman_3 

inc 

ix 

;incrementa o ponteiro 


djnz 

lecoman_1 

;repete para os demais 
palores 

lecoman_4 

pop 

ret 

ix 

jrecupera o ponteiro salvo 
;retorna 


;a rotina erro_05 emite a 

mensagem de chamada ilegal 

erro_05 

ld 

a, #05 

;a-código do erro 

ld 

(errflg),a 

;salva o erro em errflg 

jP 

voltaerro 

;vai para voltaerro 

;a rotina voltaerro substitui o erro original por um outro 

voltaerro 

pop 

hl 

;recupera os pares 

pop 

de 

;salvos no início da 

pop 

bc 

;rotina erro 

pop 

af 

» 

ld 

a.(errflg) 

;a-erro a ser emitido 

ld 

e, a 

;e-erro a ser emitido 

ret 


;volta para a rotina 
;de manipulação de erros 
;do interpretador BASIC 


;a rotina volta promove a volta ao BASIC sem que haja 
;interrupção no processamento, ou seja, sem que o sistema 
;detecte o erro ocorrido 


volta 


dec 


hl 


;hl aponta para o final 
;do último comando 
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xor 

a 

jmodifica para nenhum erro 

ld 

(errflg),a 

;ocorrido 

pop 

de 

jrecupera os registros 

pop 

de 

;salvos no início da rotina 

pop 

bc 

;erro. Note que hl não ó 

pop 

af 

;recuperado. 

pop 

de 

;obtém o end. de retorno da 
;nossa rotina para a rotina 
;de chaveamento de slots 

pop 

bc 

;obtóm o end. de retorno da 
;rotina de chaveamento de 
;slots para RST #30 

pop 

af 

;obtóm o end. de retorno de 
;RST #30 para o hook 

pop 

ix 

;obtém/destrói o end. de 
;retorno do hook para a 
;rotina 

;de erro do interpretador 
;BASIC 

pop 

ix 

;obtém/destrói o end. de 
;retorno 

;da rotina de erro para o 
jinterpretador BASIC 

push 

af 

;repõe na pilha os end. de 

push 

bc 

;retorno salvos nestes 

push 

de 

;registros 

ld 

ix.chrgtr 

;faz com que hl aponte 

jp 

chamabasic 

;para o próximo comando 

ret 


;e retorna ao BASIC 


chamabasic 


call 

ret 

caibas 

;chama a rotina caibas 
;retorna 

inverte 


ld 

b,#04 

;b-núm. de valores 


ld 

ix.tabinver 

;ix=tabeladefault 


call 

lecomandos 

;lè os 4 valores 


ld 

a,(ix+#00) 

;obtém coord. x 


ld 

(grpacx),a 

;salva em grpacx 


ld 

a,(ix+#01) 

;obtóm coord. y 


ld 

(grpacy).a 

;salva em grpacy 


ld 

a,(ix+#02) 

;obtém o comp. da string 


ld 

(compstr).a 

;salva em compstr 


cp 

33 

;é >= 33? 


ÍP 

nc,erro_05 

;Sim, chamada ilegal 
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inverteO 


inverte3 


ld 

(auxiliar), hl 

ld 

a,(ix+#03) 

or 

a 

jr 

z.inverteO 

ld 

a, (inversão) 

or 

a 

jr 

z.inverteO 

ld 

hl,(bufnor+#01) 

call 

setvdpwt 

ld 

hl,bufnor+#03 

ld 

a.(bufnor) 

ld 

b,a 

call 

esclinha 

ld 

a,#ff 

ld 

(inversão), a 

ld 

hl.(auxiliar) 

ld 

a,(compstr) 

or 

a 

jp 

z.volta 

ld 

ix.bufnor 

ld 

iy.bufinv 

ld 

(ix+#00),a 

ld 

(iy+#00),a 

call 

calpadvid 

ld 

a,(grpacx) 

ld 

e,a 

ld 

a, (colunas) 

cp 

e 

jp 

c,erro_05 

ld 

a.(grpacy) 

cp 

24 

jp 

nc,erro_05 

call 

di 

lefrase 

ld 

hl.(tabpad) 

push 

hl 

ld 

de,#e0*8 

add 

hl.de 

ex 

de, hl 

ld 

c,#eO 

ld 

b,(ix+#00) 

ld 

ix,bufnor+#03 

ld 

iy,bufinv+#03 


;salva ptr. do BASIC 
;a=flag de recuperação 
;está setada? 

;Não, vai para inverteO 
;Sim, já foi feita alguma 
jinversão? 

;Não, vai para inverteO 
;Sim, obtém a pos. da string 
;antiga e prepara o VDP 
;hl->início da string antiga 
;a=comp. da string antiga 
;a=comp. da string antiga 
;escreve a string antiga 
;no modo normal 

;sinaliza uma inversão 
;hl=ponteiro do BASIC 
;a«comp. da string 
;comprimento~0? 

;Sim, volta com erro 
;Não, ajusta os buffers 
;para a string normal e 
;para a string invertida 
;com o comprimento da 
;calcula os padrões do vídeo 
;obtém a coo rd. x 
;coloca em e 

;obtém o número de colunas 
;compara com o valor lido 
;Se valor lido > colunas 
;volta com erro 
;obtém a coord. y 
;ó maior do que 23? 

;Sim, volta com erro 
;lê a string a inverter 
;desabilita as interrupções 
;hl*end. da tab. de padrões 
;salva o end. da tab. 

;de padrões 

;calcula o endereço do 

;desenho do caractere #e0 

;de-end. do desenho do 

;caractere #e0 

;c-#eO 

;b-número de carac. da string 
;ix-end. da string normal 
;iy«end. da string invertida 
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pop 

hl 

;recupera hl 

bopinvl 

push 

bc 

;salva bc 


push 

hl 

;salva hl 


push 

de 

;salva de 


ld 

de,#0008 

;bytes para o desenho 


ld 

b,(ix+#00) 

;de cada caractere 
;b-caractere a inverter 

loopinv2 

add 

hl.de 

;calcula o endereço desse 


djnz 

loopinv2 

;caractere 


pop 

de 

.recupera de 


ld 

b,#08 

iprepara a modificação 

loopinv3 

call 

rdvram 

;lê o byte original 


cpl 

ex 

de, hl 

;inverte 

transfere para o novo 


call 

wtvram 

;destino 


ex 

de, hl 

9 


inc 

hl 

;hl-hl+1 


inc 

de 

;de«de+1 


djnz 

loopinv3 

;b«b-1 


pop 

hl 

;recupera hl 


pop 

bc 

;recupera bc 


ld 

(iy+#00),c 

;modifica a string 


inc 

c 

;c*c+1 


inc 

ix 

japonta para o próximo carac. 


inc 

djnz 

iy 

loopinvl 

;repete até o fim da string 

envinvert 


ld 

iy.bufinv 

;recupera o ptr. do buffer 


ld 

l.(iy+#01) 

;hl-end. de escrita da string 

9 


ld 

h,(iy+#02) 


call 

setvdpwt 

jajusta o VDP para escrita 


ld 

b,(iy+#00) 

;b=núm. de carac. da string 


ld 

hl,bufinv+#03 

;end. da string 


call 

esclinha 

;escreve a frase invertida 


ei 

ld 

hl, (auxiliar) 

;habilita as interrupções 
;recupera ptr. do BASIC 


jP 

volta 

;volta para o BASIC 

tabinver 


defb 

#00 

;posição x 


defb 

#00 

;posição y 


defb 

#00 

;comprimento 


defb 

#00 

;flag de restauração 


newcls 
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ld 

b,#02 

;b«núm. de valores 

ld 

ix.tabnewcls 

;ix->tab. de valores default 

call 

lecomandos 

l 

ld 

(auxiliar).hl 

;salva o ponteiro do BASIC 

ld 

a,(ix+#00) 

;obtém o primeiro valor 

cp 

#02 

;verifica o limite 

JP 

nc,erro_05 

;se estiver fora, volta com 
erro 

call 

calpadvid 

;calcu!a os padrões do vídeo 

ld 

a, (colunas) 

;obtóm o número de colunas 

ld 

e,a 

;e=número de colunas 

ld 

a,(ix+#01) 

;a=número de rotações 

inc 

e 


cp 

e 

;rotações>colunas? 

jp 

nc,erro_05 

;Sim, volta com erro 

or 

a 

;Zero rotações? 

JP 

z, volta 

;Sim, volta sem erro 

ld 

a,(ix+#00) 

;a=tipo de rotação 

or 

a 

;é zero (esquerda)? 

JP 

nz,newcls_0 

;Não, vai para newcls_0 


;newcls_1 faz o cis com rotação para a esquerda 
newcls 1 


loopcls_1 1 


k>opcls_12 


di 


ld 

b,(ix+#01) 

push 

bc 

ld 

hl.(txtnam) 

ld 

a, (colunas) 

ld 

e.a 

ld 

d,#00 

ld 

a.(crtcnt) 

ld 

b.a 

push 

bc 

call 

setvdprd 

ld 

a, (colunas) 

push 

de 

push 

hl 

ld 

hl.bufferlinha 

ld 

b,a 

call 

lelinha 

ld 

a, #20 

ld 

(hl).a 

pop 

hl 


;desabilita as interrupções 
;b=número de rotações 
;salva contador externo 
;hl=end. tabela de nomes 
;a-núm. de colunas 
;de=núm. de colunas 

;a=número de linhas 
;b=número de linhas 

;salva contador intermediário 
prepara o VDP para leitura 
;a*núm. de colunas 
;salva de 
;salva hl 

;hl aponta para o buffer 
;b~núm. de colunas 
;lê uma linha 

;a«carac. espaço em branco 
;coloca o espaço na últ. pos. 
;recupera hl 
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pop 

de 

;recupera de 

call 

setvdpwt 

prepara o VDP para escrita 

push 

de 

;salva de 

push 

hl 

;salva hl 

ld 

hl.bufferlinha-t-1 

;hl aponta para o buffer+ 1 

ld 

a, (colunas) 

;a-núm. de colunas 

ld 

b,a 

;b«núm. de colunas 

call 

esclinha 

;envia a linha já rotada 

pop 

hl 

;recupera hl 

pop 

de 

;recupera de 

add 

hl, de 

;hl aponta para a próx. linha 

pop 

bc 

;recupera bc 

djnz 

k>opcls_12 

;repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

loopcls_1 1 

;repete até terminar todas 



;as rotações 

ei 


;habilita as interrupções 

ld 

hl, (auxiliar) 

;recupera o ponteiro do BASIC 

jp 

volta 

;retorna ao BASIC 


;newcls_0 faz o cis com rotação para a direita 
newcls_0 

di ;desabilita as interrupções 

ld b,(ix+#01) ;b*número de rotações 

k)opcls_01 

push bc 
ld hl.(txtnam) 

ld a, (colunas) 

ld e,a 

ld d, #00 

ld a,(crtcnt) 

ld b,a 

loopcls_02 


push 

bc 

;salva contador intermediário 

call 

setvdprd 

prepara o VDP para leitura 

ld 

a, (colunas) 

;a=núm. de colunas 

push 

de 

;salva de 

push 

hl 

;salva hl 

ld 

hl,bufferlinha+1 

;hl aponta para o buffer+1 

ld 

b,a 

;b«núm. de colunas 

call 

lelinha 

;lê uma linha 

ld 

a, #20 

;a-carac. espaço em branco 

ld 

hl.bufferlinha 

;hl aponta para o buffer 

ld 

(hl), a 

;cok>ca o espaço na prim. 
; posição 


salva contador externo 
hl=end. tabela de nomes 
a-núm. de colunas 
de=núm. de colunas 

a=número de linhas 
b-número de linhas 
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pop 

hl 

;recupera hl 

pop 

de 

;recupera de 

call 

setvdpwt 

prepara o VDP para escrita 

push 

de 

;salva de 

push 

hl 

;salva hl 

ld 

hl.bufferlinha 

;hl aponta para o buffer 

ld 

a, (colunas) 

;a=núm. de colunas 

ld 

b,a 

;b«núm. de colunas 

call 

esclinha 

;envia a linha já rotada 

pop 

hl 

;recupera hl 

pop 

de 

;recupera de 

add 

hl.de 

;hl aponta para a próx. linha 

pop 

bc 

;recupera bc 

djnz 

loopcls_02 

;repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

toopcls_01 

;repete até terminar todas 



;as rotações 

ei 


jhabilita as interrupções 

ld 

hl.(auxiliar) 

;recupera o ponteiro do BASIC 

jp 

volta 

;retorna ao BASIC 

tabnewcls 



defb 

#00 

;tipo de cis 

defb 

#00 

púrnero de rotações 

window 



ld 

ix.tabwindow 

;ix aponta p/ tabela 

ld 

b,#05 

;b*núm. de comandos 

call 

lecomandos 

;lê as coordenadas 

ld 

(auxiliar), hl 

;salva o ptr. do BASIC 

call 

calpadvid 

palcula os parâmetros 



;do vídeo 

ld 

ix.tabwindow 

;ix aponta p/ tabela 

ld 

h,(ix+#00) 

;h-x1 

ld 

l,(ix+#01) 

;i-yi 

ld 

d,(ix+#02) 

;d-x2 

ld 

e,(ix+#03) 

;e-y2 

ld 

a.h 

.lesta se x2>x1 

cp 

d 

l 

jP 

nc,erro_05 

;x2<-x1->erro 

ld 

a.l 

;testa se y2>y1 

cp 

e 

9 

jp 

nc,erro_05 

;y2<«y1->erro 

ld 

a.e 

;a=y2 

cp 

24 

;y2>-24? 
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jP 

nc,erro_05 

;Sim, volta com erro 


ld 

a, (colunas) 

;a=colunas na tela 


dec 

cp 

a 

d 

;x2>»colunas? 


jp 

c t erro_05 

;Sim, volta com erro 


ld 

a,(ix+#04) 

;a=tipo de apresentação 


or 

a 

;é zero? 


jP 

nz.zoom 

;Não, vai para zoom 


call 

janela 

;Sim, chama janela 

windvolta 


ld 

hl, (auxiliar) 

;hl=ponteiro do BASIC 


jp 

volta 

;volta para o BASIC 

;A rotina zoom cria o efeito 

• de explosão da janela 

zoom 


xor 

a 

;zera o acumulador 


ld 

(bufcol).a 

;zera o buffer da coluna 


ld 

(buflin).a 

;zerao buffer da linha 


ld 

(cororl).hl 

;salva as coordenadas xl ,y1 


ld 

(coror2),de 

;salva as coordenadas x2,y2 


ld 

a,h 

;carrega a com h (xl) 


add 

a, d 

;soma com d (x2) e divide 


srl 

a 

;por dois para achar Xmedio 


dec 

a 

;decrementa Xmedio 


ld 

h.a 

;carrega h (xl) com Xmedio 


inc 

a 

;incrementa o ponto médio 


inc 

a 

;paraque 

;x2=x1+1, onde xl-Xmedio-l 


ld 

d, a 

;carrega d com x2 


ld 

a,l 

;a=y1 


add 

a.e 

;soma com e (y2) e divide 


srl 

a 

;por dois para achar Ymedio 


dec 

a 

;decrementa Ymedio 


ld 

l.a 

;carrega 1 (yl) com Ymedio 


inc 

a 

;incrementa o ponto médio 


inc 

a 

;paraque 

;y2=y1+1, onde yl-Ymedio-1 


ld 

e.a 

;carrega e com y2 


call 

janela 

;desenha a primeira janela 

looptest 

call 

coluna 

;verifica em rei. à col. 


call 

linha 

;limfte 

verifica em rei. à linha 


call 

janela 

;limite 

;desenha a janela 



coluna 


fimcol 


linha 


fimlin 


espjanela 

espjanelal 


teste2 
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call 

espjanela 

jretardo para tornar o efeito 
jvisível 

call 

teste2 

;verifica se já chegou à 
jjanela final 

jr 

nz.looptest 

;Não, continua com a explosão 

ld 

hl.(cororl) 

;imprime a janela final 

ld 

de,(coror2) 

9 

call 

janela 

9 

jp 

windvolta 

;retorna ao BASIC 

ld 

a,(coror1+#01) 

;a-coord. xl original 

cp 

h 

;já foi atingida? 

\r 

nc.fimcol 

;Sim, vai para fimcol 

dec 

h 

;Não, xl =x1 -1 

inc 

d 

;x2«x2+1 

ret 


jretorna 

ld 

a, #01 

;indica que a coluna-limite 

ld 

(bufcol),a 

rfoi atingida 

ret 


;retorna 

ld 

a.(cororl) 

;a«coord. yl original 

cp 

1 

;já foi atingida? 

jr 

nc.fimlin 

;Sim, vai para fimlin 

dec 

1 

;Não, yl-yl-1 

inc 

e 

jy2«y2+1 

ret 


jretorna 

ld 

a, #01 

jindica que a linha-limite 

ld 

(buflin),a 

rfoi atingida 

ret 


jretorna 

push 

af 

jsalva os registros 

push 

hl 

jafetados 

ld 

hl, #1000 

jaltere este valor para mudar 

dec 

hl 

jretardo. Decrementa hl 

ld 

a.h 

jverifica se chegou 

or 

1 

;ao fim 

jr 

nz, espjanelal 

;Não, volta para espjanelal 

pop 

hl 

jrecupera os registros 

pop 

af 

9 

ret 


;e retorna 

ld 

a.(bufcol) 

jverifica se a coluna- 

cp 

#01 

jlimite foi atingida 

jr 

z, contes 

;Sim, vai para contes 

ret 


jNão, retorna 
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contes 

ld 

a,(buflin) 

;verifica se a linha- 


cp 

#01 

;limite foi atingida 


ret 


;retorna. Flag Z será o 




;indicador. 


;a rotina janela é a responsável pelo desenho da própria 
ijanela no vídeo 


janela 


janell 


janel2 


push 

push 

push 

call 

ld 

sub 

dec 

ld 

push 

ld 

out 

ex 

ex 

ld 

out 

ex 

ex 

djnz 

ld 

out 

pop 

ld 

call 

ld 

out 

ex 

ex 

ld 

out 

ex 

ex 


bc 

de 

hl 

posit 
a, d 
h 


b,a 

bc 

a, #18 

(#98), a 

(sp).hl 

(sp).hl 

a, #17 

(#98),a 

(sp).hl 

(sp).hl 

janell 

a,#19 

(#98),a 

bc 

1,0 

posit 

a,#1a 

(#98), a 

(sp).hl 

(sp).hl 

a, #17 

(#98), a 

(sp).hl 

(sp).hl 


;salva todos os registros 
;alterados pela rotina 

I 

iposiciona o cursor em xl ,y1 

;a*x2 

;a*x2-x1 

;a=núm. de pos. da linha do 
;topo 

;b=núm. de pos. da linha do 
Itopo 

;salva núm. pos. da linha do 
Itopo 

;a«carac. do canto sup. esq. 
;escreve o caractere 
;demora para sincronização 

f 

;a=traço horizontal 
;escreve a linha superior 
;demora para sincronização 


;a=caractere do canto sup. 
;direito 

;escreve o caractere 
;recupera núm. pos. linha do 
,1opo 
;l=y2 

;coloca o cursor em xl ,y2 
;a»caractere do canto inf. 
;esquerdo 

;escreve o caractere 
jdemora para sincronização 

;a=traço horizontal 
;escreve a linha inferior 
;demora para sincronização 
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janel3 


janel4 


djnz janel2 

ld a,#1b 

out (#98),a 

pop hl 

pop de 

push de 

push hl 

ld a,e 

sub I 

dec a 

ld b,a 

ld a,d 

sub h 

dec a 

ld c,a 

inc I 

call posit 

ld a, #16 

out (#98),a 

push bc 

ld b.c 

ld a,#20 

out (#98),a 

ex (sp),hl 

ex (sp),hl 

djnz janel4 

ld a, #16 

out (#98),a 

inc I 

pop bc 

djnz janel3 

pop hl 

pop de 

pop bc 

ret 


;a«caractere do canto inf. 
;direito 

;escreve o caractere 

;recuperax1,y1 

;recupera x2,y2 

;salva x2,y2 

;salvax1,y1 

;a-y2 

;a»y2-y1 

;a=núm. de posições verticais 
;b«núm. de posições verticais 
;a=x2 
;a-x2-x1 

;a«núm. de pos. horizontais 
;c*núm. de pos. horizontais 
yl-yl+1 

;posiciona o cursor 
;a-traço vertical 
;escreve o caractere 
;salva núm. de pos. verticais 
;b-núm. de pos. horizontais 
;a=caractere espaço em branco 
;escreve o carac. para limpar 
;demora para sincronização 

;a janela 
;a»traço vertical 
;escreve o caractere 
;y1-y1+1 

;recupera núm. de pos. 

;vert içais 

;repete até acabar as linhas 
;vert içais 

;recupera os registros salvos 


;e retorna 


tabwindow 


defb 

#00 

;coordenada xl 

defb 

#00 

;coordenada yl 

defb 

#00 

;coordenada x2 

defb 

#00 

;coordenada y2 

defb 

#00 

;tipo de apresentação 
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bufcol 

defb 

#00 

;buffer auxiliar 

buflin 

defb 

#00 

;buffer auxiliar 

cororl 

defw 

#0000 

;buffer auxiliar 

coror2 

defw 

#0000 

;buffer auxiliar 


;a rotina calpadvid calcula os padrões do vídeo: tabela de 

; padrões e o número de colunas. Os valores resultantes são 

;colocados em tabpad e colunas, respectivamente. 

calpadvid 





ex 

af.af 

;salva o registro af 


exx 


;salva os demais registros 


ld 

hl.(txtcgp) 

;obtém a tab. de padrões 


ld 

a, (versão) 

;obtém a versão 


or 

a 

;do MSX. ÉMSX1? 


K 

z,calpad_1 

;Sim, vai para calpad_1 


ld 

a.(linlen) 

;obtém o tamanho da tela 


cp 

41 

;0 MSX2 está em 80 colunas? 


V 

c,calpad_1 

;Não, vai para calpad_1 


ld 

a, 80 

;Sim, a=80 colunas 


add 

hl,hl 

;calcula novo end. da 




;tabela de padrões 


K 

calpad_2 

;vai para calpad_2 

calpad_1 

ld 

a, 40 

;a=40 colunas 

calpad_2 

ld 

(colunas), a 

;salva as colunas 


ld 

(tabpad), hl 

;salva o end. da tab. de 




padrões 


exx 


;recupera os registros salvos 


ex 

af.af 

9 


ret 


;retorna 


;a rotina lefrase transporta da tela para buffer bufnor 

;a sentença a inverter 

lefrase 

push 

af 

;salva os registros 

push 

bc 

jmodificados por esta 

push 

de 

;rotina 

push 

hl 

9 

call 

calendfra 

;calcula o end. da string 
;na VRAM 

call 

setvdprd 

prepara o VDP para leitura 

ld 

b,(ix+#00) 

;obtóm o comp. da string 

ld 

hl,bufnor+#03 

;hl->início da string 
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call 

lelinha 

lê a string 

pop 

hl 

recupera os registros 

pop 

de 

salvos 

pop 

bc 


pop 

af 


ret 


retorna 


;a rotina calendfra, baseada nas coordenadas fornecidas, calcula o endereço da sentença a 
;inverter na memória VRAM 


calendfra 



ld 

h,#00 

calcula o end. da string 


ld 

d.h 

na memória VRAM, baseada 


ld 

a.(grpacy) 

nas coordenadas passadas 


ld 

l.a 



or 

a 

a string está na linha 0? 


V 

z, calendl 

Sim, vai para calendl 


ld 

l.h 

Não, calcula o end. do 


ld 

b,a 

início da linha 


ld 

a.(colunas) 



ld 

e.a 


loopcaM 

add 

hl.de 



djnz 

loopcal_1 


calendl 

ld 

a.(grpacx) 

obtém a coord. x 


ld 

e.a 

e=coord. x 


add 

hl, de 

soma ao end. já encontrado 


ld 

(bufnor+#01),hl 

salva no buffer das strings 


ld 

(bufinv+#01),hl 

normal e invertida 


ret 


retorna 


;a rotina posit posiciona o cursor nas coordenadas passadas 
;por hl. h-x e l-y 


push 

af 

;salva todos os 

push 

bc 

;registros afetados 

push 

de 

;por esta rotina 

push 

hl 

f 

ex 

de.hl 

jtroca o conteúdo de hl pelo 
;do registro de 

ld 

hl, #0000 

;zera hl 

ld 

a.e 

;a«linha 

or 

a 

;ó igual a zero? 
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Y 

z,posit2 

;Sim, vai para posit2 


push 

de 

;Não, salva as coordenadas 


ld 

b,a 

;b«núm. da linha 


ld 

a, (colunas) 

;a-núm. de colunas 


ld 

e,a 

;e*núm. de colunas 


ld 

d, #00 

;de«núm. de colunas 

positl 

add 

hl, de 

;hl«hl+núm. de colunas 


djnz 

positl 



pop 

de 

;recupera as coordenadas 

posit2 

ld 

a, d 

;a*coluna 


or 

a 

;é igual a zero? 


V 

z,posit3 

;Sim, vai para posit3 


ld 

e.a 

;Não, e=coluna 


ld 

d, #00 

;de«coluna 


add 

hl.de 

;hl aponta para o end. da 




;VRAM 




;correspondente a xl ,y1 

posit3 

call 

setvdpwt 

prepara o VDP para escrita 


pop 

hl 

;recupera os registros 


pop 

de 

• 


pop 

bc 

t 


pop 

af 

9 


ret 


;e retorna 


;iníck> da lista com os nomes dos novos comandos e 
;endereços de chamada 


lista 


endlista 


defm 

"REVERSE' 

defb 

#00 

defw 

inverte 

defm 

"CLRSCR" 

defb 

#00 

defw 

newcls 

defm 

"WIN DOW’ 

defb 

#00 

defw 

window 

defb 

#00 


;nome do comando 
;fim do nome 
;end. da rotina 
;nome do comando 
,1im do nome 
;end. da rotina 
;nome do comando 
;fim do nome 
;end. da rotina 
;fim da lista 


;rotinas para o acesso direto à RAM de vídeo 
rdvram 

call setvdprd ;ajusta o VDP para leitura 
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wtvram 


in 

a, (#98) 

;lê um byte 

ret 


;retorna 


push 

af 

;safva o dado a enviar 

call 

setvdpwt 

;ajusta o VDP para escrita 

pop 

af 

;recupera o dado a enviar 

out 

(#98),a 

;envia 

ret 


jretorna 


setvdprd 


rdvraml 


W 

a, (versão) 

;obt6m a versão do MSX 

or 

a 

;ó MSX1 ? 

jr 

z, rdvraml 

;Sim, vai para rdvraml 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99),a 


ld 

a,l 

informa ao 

out 

(#99), a 

VDP o endereço na 

ld 

a.h 

VRAM onde será 

and 

#3f 

lido o dado 

out 

(#99), a 


ex 

(sp).hl 

demora para 

ex 

ret 

(sp).hl 

sincronização 


setvdpwt 


wtvram 1 


ld 

a, (versão) 

;obtém a versão do MSX 

or 

a 

;é MSX1? 

jr 

z, wtvram 1 

;Sim, vai para wtvram 1 

xor 

a 

;Não, inicializa o VDP 

out 

(#99), a 

;do MSX2 

ld 

a,#8e 


out 

(#99), a 


ld 

a,l 

jinforma ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

jgravado 

out 

(#99),a 

t 

ex 

(sp).hl 

.demora para 

ex 

(sp).hl 

jsincronização 

ret 


jretorna 
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;a rotina lelinha transporta uma linha da VRAM para a RAM 
lelinha 


in 

a,(#98) 

;lê o carac. da VRAM 

ld 

(hl), a 

;salva-o no buffer apontado 
;por hl 

inc 

hl 

;incrementa o ponteiro do 
;buffer 

djnz 

lelinha 

;prepara a próxima leitura na 
Itela 

ret 


;retorna 


;a rotina esclinha transporta uma linha da RAM para a VRAM 


esclinha 

ld 

a.(hl) 

;lê o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

jincrementa o ponteiro do 
;buffer 


djnz 

esclinha 

;prepara a próxima escrita na 
Itela 

• 

ret 


;retorna 

;área das variáveis usadas no programa 


bufnor 

defb 

#00 

tamanho da string 


defw 

#0000 

;posição de escrita 


defs 

33 

;string 

bufinv 

defb 

#00 

Itamanho da string 


defw 

#0000 

iposição de escrita 


defs 

33 

istring 

inversão 

defb 

#00 

rflag de campo já invertido 

compstr 

defb 

#00 

;comprimento da string 

colunas 

defb 

#00 

;número de colunas na tela 

tabpad 

defw 

#0000 

;endereço da tab. de padrões 

auxiliar 

defw 

#0000 

Iponteiro do BASIC 



OS DISPOSITIVOS DE SELEÇÃO 1 9 1 


bufferlinha 

defs 

81 

jbuffer de linha da tela 

fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa que implementa o comando 
W1NDOW: 

10 FOR A%«6HD000 TO &HD52F 
20 READ B$ 

30 POKE A% , VAL ( " tH"+B$) 

40 NEXT A« 

50 BSAVE "PROG24 . BIN", &HD000, &HD52F 

100 DATA F3,DB,A8,47,E6,F0,0F,0F,0F,0F,B0,D3,A8,E6,03,32 
110 DATA 2E, D0, 78,21, 2D, D0, 11 , Bl, FF, 01, 05, 00, ED, B0, 21, 32 
120 DATA D0, 11, 00, 40, 01 , FD, 04 , ED, B0, D3, A8, FB, C9, F7, 00, 00 
130 DATA 40, C9, F5 , C5, D5, E5, 7B, FE, 02 , C2 , 20,40, 2A, AF, F6, 7E 
140 DATA B7, C2, 16, 40, 23, 23, 23, 23, DD, 21, 66, 46, CD, AD, 40, CD 
150 DATA 25,40, El , Dl, Cl , F1 , C9, 22, A9, 44,21,F1,43,01, 1C, 00 
160 DATA ED,5B,A9,44,1A,ED,B1,E2,48,40,13,1A,BE,C2,2E,40 
170 DATA 23, 7E, FE, 00, CA, 49, 40, C3, 38,40, C9, 23, 4E, 23, 46, F1 
180 DATA C5, ED, 53, A9, 44 , EB, C9, DD, E5, DD, E5, DD, 21 , 66, 46, CD 
190 DATA AD, 40, DD, El, 28 , IA, FE, 2C, 28,12, 2B, DD, E5, C5, DD, 21 
200 DATA 0E, 52, CD, AD, 40, Cl, DD, El, 7B, DD, 77,00, DD, 23, 10, D9 
210 DATA DD, El, C9, 3E, 05, 32, 14 , F4, C3, 89, 40, El , Dl , Cl, F1 , 3A 
220 DATA 14 , F4 , 5F, C9, 2B, AF, 32,14, F4 , Dl, Dl , Cl , F1 , Dl, Cl , F1 
230 DATA DD, El, DD, El, F5, C5, D5, DD, 21, 66, 46, C3, AD, 40, C9, CD 
240 DATA 59,01, C9, 06, 04, DD, 21, 83, 41, CD, 55,40, DD, 7E, 00, 32 
250 DATA B7 , FC, DD, 7E, 01,32, B9, FC, DD, 7E, 02 , 32, A5, 44, FE, 21 
260 DATA D2, 81, 40, 22, A9, 44, DD, 7E, 03, B7, 28,16, 3A, A4, 44, B7 
270 DATA 28,10, 2A, 5D, 44 , CD, 34 , 44, 21, 5F, 44 , 3A, 5C, 44 , 47, CD 
280 DATA 55 , 44, 3E, FF, 32 , A4, 44 , 2 A, A9 ,44, 3A, A5, 44 , B7, CA, 92 
290 DATA 40, DD, 21, 5C, 44, FD, 21, 80, 44, DD, 77, 00, FD, 77, 00, CD 
300 DATA 70,43, 3A, B7, FC, 5F, 3A, A6, 44 , BB, DA, 81, 40, 3A, B9, FC 
310 DATA FE, 18, D2 , 81, 40, CD, 92,43, F3, 2A, A7 , 44 , E5, 11, 00, 07 
320 DATA 19, EB, 0E,E0, DD, 46, 00, DD, 21, 5F, 44, FD, 21, 83, 44, El 
330 DATA C5,E5, D5, 11, 08, 00, DD, 46, 00, 19, 10, FD, Dl, 06, 08, CD 
340 DATA 0E, 44, 2F, EB, CD, 14, 44, EB, 23, 13, 10, F3, El, Cl, FD, 71 
350 DATA 00, 0C, DD, 23, FD, 23, 10, D8, FD, 21, 80, 44, FD, 6E, 01, FD 
360 DATA 66, 02, CD, 34, 44 , FD, 46, 00, 21, 83, 44, CD, 55,44, FB, 2A 
370 DATA A9, 44, C3, 92, 40, 00, 00, 00, 00, 06, 02, DD, 21, 44, 42, CD 
380 DATA 55, 40, 22, A9, 44, DD, 7E, 00, FE, 02, D2, 81, 40, CD, 70, 43 
390 DATA 3A, A6, 44, 5F, DD, 7E, 01, 1C, BB, D2, 81, 40, B7, CA, 92, 40 
400 DATA DD, 7E, 00, B7, C2 , FB, 41, F3, DD, 46, 01 , C5, 2A, B3, F3, 3A 
410 DATA A6, 44, 5F, 16, 00, 3A, Bl , F3, 47, C5, CD, 1C, 44 , 3A, A6, 44 
420 DATA D5, E5, 21 , AB, 44,47, CD, 4E, 44, 3E, 20, 77, El , Dl, CD, 34 
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430 DATA 44 , D5, E5 , 21, AC, 44 , 3A, A6, 44,47, CD, 55, 44 , El, Dl , 19 
440 DATA C1,10,D6,C1,10,C5,FB,2A,A9,44,C3,92,40,F3,DD,46 
450 DATA 01,C5,2A,B3,F3,3A,A6,44,5F,16,00,3A,B1,F3,47,C5 
460 DATA CD, 1C, 44 , 3A, A6 , 44 , D5 , E5, 21 , AC, 44,47, CD, 4E, 44, 3E 
470 DATA 20,21, AB, 44 , 77 , El, Dl , CD, 34,44, D5, E5, 21 , AB, 44, 3A 
480 DATA A6, 44 , 47 , CD, 55 , 44 , El , Dl, 19, Cl ,10, D3, Cl , 10, C2, FB 
490 DATA 2A,A9, 44, C3, 92, 40, 00, 00, DD, 21, 65, 43, 06, 05, CD, 55 
500 DATA 40, 22, A9, 44, CD, 70, 43, DD, 21, 65, 43, DD, 66, 00, DD, 6E 
510 DATA 01 , DD, 56, 02 , DD, 5E, 03 , 7C, BA, D2, 81,40, 7D, BB, D2, 81 
520 DATA 40, 7B, FE, 18, D2, 81, 40, 3A, A6, 44, 3D, BA, DA, 81, 40, DD 
530 DATA 7E, 04, B7, C2, 8D, 42, CD, 07, 43, 2A, A9, 44, C3, 92, 40, AF 
540 DATA 32, 6A, 43, 32, 6B, 43, 22, 6C, 43, ED, 53, 6E, 43, 7C, 82, CB 
550 DATA 3F, 3D, 67 , 3C, 3C, 57, 7D, 83, CB, 3F, 3D, 6F, 3C, 3C, 5F, CD 
560 DATA 07, 43, CD, CE, 42, CD, DD, 42, CD, 07, 43, CD, EC, 42, CD, F9 
570 DATA 42,20, EF, 2A, 6C, 43, ED, 5B, 6E, 43, CD, 07, 43, C3, 87, 42 
580 DATA 3A, 6D, 43, BC, 30,03,25,14, C9 , 3E, 01 , 32, 6A, 43, C9, 3A 
590 DATA 6C, 43, BD, 30, 03, 2D, 1C, C9, 3E, 01, 32 , 6B, 43, C9, F5, E5 
600 DATA 21, 00, 10, 2B, 7C,B5, 20, FB, E1,F1, C9, 3A, 6A, 43, FE, 01 
610 DATA 28,01, C9 , 3A, 6B, 43, FE, 01, C9 , C5, D5 , E5, CD, C9, 43, 7A 
620 DATA 94 , 3D, 47 , C5, 3E, 18, D3, 98, E3 , E3, 3E, 17, D3, 98, E3, E3 
630 DATA 10, F8, 3E, 19, D3 , 98, Cl , 6B, CD, C9, 43 , 3E, IA, D3, 98, E3 
640 DATA E3,3E, 17, D3, 98 , E3, E3 , 10, F8 , 3E, 1B,D3, 98, El, Dl, D5 
650 DATA E5 , 7B, 95 , 3D, 47 , 7A, 94 , 3D, 4F, 2C, CD, C9, 43, 3E, 16, D3 
660 DATA 98, C5, 41 , 3E, 20, D3, 98, E3, E3 ,10, F8, 3E, 16 , D3, 98, 2C 
670 DATA Cl, 10, E7, El, Dl, Cl, C9, 00, 00, 00, 00, 00, 00, 00, 00, 00 
680 DATA 00, 00, 08, D9, 2A, B7, F3, 3A, 2D, 00, B7, 28, 0C, 3A, BO, F3 
690 DATA FE, 29, 38, 05, 3E, 50, 29, 18, 02, 3E, 28,32, A6, 44,22, A7 
700 DATA 44 , D9, 08 , C9, F5 , C5 , D5, E5, CD, AA, 43, CD, 1C, 44 , DD, 46 
710 DATA 00,21, 5F, 44, CD, 4E, 44 , El, Dl , Cl , F1 , C9, 26, 00, 54 , 3A 
720 DATA B9, FC, 6F, B7, 28,09, 6C, 47, 3A, A6, 44 , 5F, 19,10, FD, 3A 
730 DATA B7, FC, 5F, 19, 22, 5D, 44, 22, 81, 44, C9, F5, C5, D5, E5, EB 
740 DATA 21 , 00, 00, 7B, B7 , 28, OC, D5, 47 , 3A, A6, 44, 5F, 16, 00, 19 
750 DATA 10, FD, Dl , 7A, B7 ,28, 04 , 5F, 16,00,19, CD, 34 , 44, El , Dl 
760 DATA Cl , Fl, C9 , 52, 45, 56, 45, 52, 53, 45, 00, Bl, 40,43, 4C, 52 
770 DATA 53, 43, 52, 00, 87, 41, 57, 49, 4E, 44, 4F, 57, 00, 46, 42, 00 
780 DATA CD, 1C, 44 , DB, 98, C9, F5, CD, 34 , 44, Fl , D3, 98, C9, 3A, 2D 
790 DATA 00, B7, 28 , 07, AF, D3, 99 , 3E, 8E, D3, 99, 7D, D3, 99, 7C, E6 
800 DATA 3F, D3, 99 , E3, E3 , C9, 3A, 2D, 00, B7, 28,07, AF, D3, 99, 3E 
810 DATA 8E,D3, 99, 7D,D3, 99, 7C,E6, 3F,F6, 40, D3, 99,E3,E3,C9 
820 DATA DB, 98, 77,23, 10, FA, C9, 7E, D3, 98, 23, 10, FA, C9, 00, 00 
830 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
840 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
850 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
860 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
870 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
880 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
890 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
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900 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 . 00 , 00,00 
910 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
920 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 . 00 , 00 , 29,09 


Antes de passar às listagens do programa que implementa o comando MENU, gostaria do 
fazer algumas observações Importantes. Assim sendo, vamos começar por um resumo das 
rotinas da BIOS do MSX empregadas neste novo comando. Como vocè já sabe, os dois mo- 
delos de MSX (1.0 e 2.0) sào compatíveis a nível de BIOS. o que implica em afirmar que de- 
vemos, na medida do possível, dar prioridade ao uso das rotinas contidas na BIOS do MSX. 
Francamente, a única exceção está nas rotinas para video, onde prefiro usar o acesso direto, 
tendo em vista a lentidáo dessas rotinas na BIOS; fora esta pequena exceçAo. á muito mais 
vantajoso usar as rotinas da BIOS pelo simples fato de já estarem prontas e funcionando sem 
problemas. Desta forma, vamos fazer uso das rotinas listadas na Tabela 3.1 . abaixo. 


Nome da rotina 

: GTSTCK 


Endereço Inicial 

: #00 D5 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: Addentlflcaçâo do joystick 
0=teclas do cursor 
1= joystick A 
2=Joystlck B 


Parâmetros de salda 

: AiCódlgo do posicionamento 
do joystick 


Registros alterados 

: AF,B,DE,HL 


Nome da rotina 

: GTTRIG 


Endereço Inicial 

:#00D8 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: Addentlflcaçáo do disparo 
Osbarra da espaço 
Irdlsparo 1 do joystick A 
2=disparo 1 do joystick B 
3=dlsparo 2 do joystick A 
4=dlsparo 2 do joystick B 


Parâmetros de salda 

: A=Códlgo do status 


Registros alterados 

: AF.BC 


Nome da rotina 

: KILBUF 


Endereço Inicial 

:#0156 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: Nenhum 


Parâmetros de salda 

: Nenhum 


Registros alterados 

: HL 


Nome da rotina 

: VARSRC 



Tabela 3. 1: Rotinas utilizadas no comando MENU 
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Endereço Inicial 
Modo da chamada 
Parâmetros de entrada 


Parâmetros de salda 


Registros alterados 


Tabela 3. 1: Rotinas utilizadas no 


:#5EA4 

: Por Intermédio de CALBAS 
: HL=aponta para o primeiro 
caractere do nome da 
variável 

: HL=aponta para o caractere 
após o nome da variável 
DE=endereço da variável 
: AF.BC.DE.HL 


MENU (continuação) 


Como já mencionei anteriormente, vocô deve consultar o " Livro Vermelho do MS)C para 
tirar quaisquer dúvidas sobre o funcionamento das rotinas acima. Em todo caso, as funções 
desempenhadas por cada uma delas sâo as seguintes: 


GTSTCK Lê o posicionamento dos joysticks ou teclas do cursor. 

GTTRIG Lê o estado dos botões de tiro dos joysticks e da barra de espaço. 

KILBUF Limpa o buffer do teclado. 

VARSRC Procura o endereço inicial de uma variável do BASIC apontada pelo registro HL. 


Devido à sua simplicidade, creio que o uso das rotinas acima ficará claro examinando-se 
os comentários que acompanham a listagem do código-fonte. Vamos então às listagens. 


h'*T m em aS90mb,y 2 *®° do código-fonte do programa que Implementa o comando 
MENU: 

iprograma que implementa o comando MENU 

.Compilar com o programa GEN80.COM usando a seguinte 

;sintaxe: 

f 

;GEN80 PROG25.BIN-PROG25.GEN 


;onde PROG25.GEN ó o nome do arquivo-texto com esta 


;listagem 


versão 

equ 

#002d 

gtstck 

equ 

#00d5 

gttrig 

equ 

#00d8 

kilbuf 

equ 

#0156 
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linlen 

equ 

#f3b0 


txtnam 

oqu 

#13b3 


txtogp 

equ 

#13b7 


caibas 

equ 

#0159 


chrgtr 

equ 

#4666 


evlexp 

equ 

#520e 


getcrd 

equ 

#579c 


varsrc 

equ 

#5ea4 


dridef 

equ 

#f247 


crtcnt 

equ 

#f3b1 


errflg 

equ 

#1414 


valtyp 

equ 

#1663 


savtxt 

equ 

#16af 


scrmod 

equ 

#fcaf 


grpacx 

equ 

#1cb7 


grpacy 

equ 

#1cb9 


hkeyi 

equ 

#1d9a 


herro 

equ 

#ffb1 



defb 

#fe 

;simula em CP/M 


defw 

inicio 

;o cabecalho de 


dofw 

fim-erro* rotina+#01 

;um arquivo 


defw 

inicio 

;.BIN 



org 

#d000 


inicio 





di 


desabilita as interrupções 


in 

a,(#aÔ) 

lô a atual configuração dos 


k) 

b.a 

slots e prepara para ativar 


and 

#10 

a página 1 do slot da RAM 


rrca 




rrca 




rrca 




rrca 




or 

b 



out 

(#a8),a 

ativa as páginas 1 . 2 e 3 em 


and 

#03 

RAM e descobre o slot onde 


id 

(slot), a 

so encontram os 64Kb de RAM 


ld 

a.b 

a-config. inicial dos slots 


Id 

hl.novohook 

promove o desvio do hook 


ld 

de.herro 

;dos erros 


Id 

bc.0005 



Idir 




ld 

hl, rotina 

.transfere a rotina para a 
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novohook 

Slot 


rotina 


erro 


examerro 


peg achar 


pula 

proxchar 

compara 

aborta 


ld 

de,erro 

página 1 da RAM 

ld 

bc,fim-erro+#01 


Idir 

out 

(#a8).a 

ihabilita a contig. original 

ei 


habilita as interrupções 

ret 


retorna ao BASIC 


defb 

#Í7 

;RST #30 

defb 

#00 

;identrficaçáo do slot 

defw 

erro 

;endereço de desvio 

defb 

#c9 

;RET 


org 

#4000 


push 

af 

;salva os registros afetados 

push 

bc 

• 

push 

de 

• 

push 

hl 

f 

ld 

a,e 

,a« código do erro 

cp 

#02 

;é erro de sintaxe? 

í P 

nz.aborta 

:Nâo. vofta ao BASIC 

ld 

hl.(savtxt) 

;Sim, obtém a posição do 
ponteiro do BASIC 

ld 

a, (hl) 

;ó final de linha? 

or 

a 

t 

ÍP 

nz.proxchar 

;Não, obtém o próximo carac. 

inc 

hl 

;Sim, pula as 4 posições 

inc 

hl 

;referentes ao número da 

inc 

hl 

;linha e ao and. da próxima 

inc 

hl 

;linha 

ld 

ix.chrgtr 

;obtóm o primeiro caractere 

call 

chamabasic 

;do novo comando 

call 

compstring 

icompara com a lista de novos 
;comandos 

pop 

hl 

;recupera os registros salvos 

pop 

de 

l 

pop 

bc 

t 

pop 

af 

• 


ret 


;retorna ao BASIC 
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;a rotina compstring ó a responsável pela localização da 
;rotina do novo comando 


compstring 


compstrl 


compstr2 


naoachei 

achei 


ld 

(auxiliar). hl 

ld 

hl.lista 

ld 

bc.endlisla-lista 

ld 

de.(auxiliar) 

ld 

cpir 

a,(de) 

jp 

po, naoachei 

inc 

de 

ld 

a. (de) 

cp 

(hl) 

ÍP 

nz, compstrl 

inc 

hl 

k) 

a.(hl) 

cp 

#00 

ÍP 

z.achei 

ÍP 

ret 

compstr2 

inc 

hl 

ld 

c.(hl) 

inc 

hl 

ld 

b.(hl) 

pop 

af 

push 

bc 


ld 

(auxiliar), de 

ex 

de.hl 


;salva o pont. do BASIC 
;hl aponta p / lista de 
jcomandos 

;bc-tamanho da lista 

;de aponta p/ comando em 

;BASIC 

;obtém o primeiro byte 
;tenta encontrá-lo na 
;lista 

;se bc-0 -> não achou 
;achou o primeiro e 
iparte 

para a comparação dos 
;demais caracteres. Vai 
;para 

;compstr1 se achar um 
;byte diferente 
;Caso contrário. 

;contmua ató o fim do 
;comando. 

;Se chegou ao fim e. 
;então. achou o comando 
;na lista. 

;Caso contrário, compara 
;o próximo byte. 

;Se achou, obtóm o 
;endoreço 

;de entrada da rotina 
;co locando-o em BC 
• 

;retira da pilha o 
;endereço de 
;retorno para a rotina 
;erro e 

;coloca na pilha o 
;endereço de 
;entrada da rotina do 
;novo comando 
puarda o ponteiro 
;do BASIC 
.transfere o ponteiro 
para HL 
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;u$a RET para dar um 
:jump 

;para o endereço contido 
;BC que foi salvo na 
pilha 


;a rotina lecomandos é a responsável pela interpretação dos 
;valores que se seguem ao nome do novo comando. Os valores 
;devem estar separados por virgulas O par IX na entrada 
;aponta para uma tabela com valores delault e o registro B 
;contém o número de valores a interpretar 


lecomandos 



push 

ix 

;salva o par IX 

lecoman 1 

push 

ix 

• 


ld 

ix.chrgtr 

;obtóm um valor 


call 

chamabasic 



pop 

ix 

;recupera o ponteiro IX 


jr 

2,lecoman_4 

;Se não houver valor, vai para 




;lecoman_4 


cp 

• • 

;ó vírgula’ 


k 

z . lecoman 3 

;Sim, assume o default 


de c 

hl 

;Nào, obtám o valor 


push 

ix 

;salva o ponteiro 


push 

bc 

;salva o contador 


ld 

ix.evlexp 

;obtóm o valor 


call 

chamabasic 

» 


pop 

bc 

;recupora o valor 


pop 

íx 

;recupera o ponteiro 


ld 

a.e 

;a-vak>r interpretado 


ld 

(ix+#00).a 

;co loca-o na tabela 

lecoman_3 

inc 

ix 

;incrementa o ponteiro 


djnz 

lecoman_1 

repete para os demais 




valores 

lecoman_4 

pop 

ix 

jrecupera o ponteiro salvo 


ret 


;retorna 


;a rotina erro_05 emite a mensagem de chamada ilegal 
erro_05 

a.#05 ;a-cód»go do erro 

(errflg),a ;salva o erro em errflg 

voKaerro ,vai para voltaerro 


W 

d 

K 
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;a rotina erro_13 omite a mensagem de tipo incompatível 


erro 13 


ld 

a, 13 

;a-código do erro 

ld 

(errflg),a 

;salva o erro em errflg 

jr 

voltaerro 

;vai para voltaerro 

;a rotina voltaerro substitui o erro original por um outro 

voltaerro 

pop 

hl 

;recupera os pares 

pop 

de 

,-salvos no inicio da 

pop 

bc 

; rotina erro 

pop 

af 

1 

ld 

a.(ôrrdg) 

, a-erro a ser emitido 

ld 

e.a 

;e-erro a ser emitido 

ret 


;volta para a rotina 
;de manipulação de erros 
;do interpretador BASIC 

;a rotina volta promove a volta ao BASIC sem que haja 

;interrupçâo no processamento, ou seja, sem que o sistema 

;detecte o erro ocorrido 
volta 

dec 

hl 

;hl aponta para o final 
;do último comando 

xor 

a 

;modifica para nenhum erro 

ld 

(errflQha 

;ocorrido 

pop 

de 

.recupera os registros 

pop 

do 

;satvos no início da rotina 

pop 

bc 

;erro. Note que hl não é 

pop 

af 

;recuperado. 

pop 

de 

;obtóm o end. de retorno da 
;nossa rotina para a rotina 
;de chaveamento de slots 

pop 

bc 

;obtóm o end. de retorno da 
;rotina de chaveamento de 
;slots para RST #30 

pop 

af 

;obtóm o end. de retorno de 
;RST #30 para o hook 

pop 

íx 

íobtôm/destrói o end. do 
;retorno do hook para a 
;rotina 

;de erro do interpretador 



200 Guia do Programador MSX 
CAPJ 


chamabasic 


inverte 


rot inversão 


;BASIC 


pop 

ix 

•.obtém/destrói o end. de 
;retorno 

;da rotina de erro para o 
;interpretador BASIC 

push 

af 

;repõe na pilha os end. de 

push 

bc 

;retorno salvos nestes 

push 

de 

;registros 

ld 

ix.chrgtr 

,1az com que hl aponte 

P 

ret 

chamabasic 

;para o próximo comando 
;e retorna ao BASIC 


call 

caibas 

-.chama a rotina caibas 

ret 


;retorna 


ld 

b.#04 

;b-núm. de valores 

ld 

ix.tabinver 

;ix-tabola default 

call 

leco mandos 

;lè os 4 valores 

ld 

(auxiliar), hl 

;salva ptr. do BASIC 

call 

rotinversao 

;chama a rotina de 



;inversao 

ld 

hl.(auxiliar) 

;recupera ptr. do BASIC 

iP 

volta 

yolta para o BASIC 


ld 

a.(butOO) 

;obtóm coord. x 

ld 

(grpacx).a 

;salva em grpacx 

ld 

a,(ix+#01) 

;obtém coord. y 

ld 

(grpacy).a 

;sa!va em grpacy 

ld 

a.(ix+#02) 

.•obtém o comp. da string 

ld 

(compstr).a 

;salva em compstr 

cp 

33 

;é >- 33? 

JP 

nc,erroinv_05 

;Sim, chamada ilegal 

ld 

a,(ix<f#03) 

;a-flag de recuperação 

or 

a 

;está setada? 

fr 

z.inverteO 

;Nâo, vai para inverteO 

ld 

a.(inversao) 

;Slm, já foi feita alguma 

or 

a 

;inversâo? 

jr 

z.inverteO 

;Não. vai para inverteO 

ld 

a.(bufnor) 

;Sim. obtém o comprimento 
;da string. 

or 

a 

;é zero? 

Jr 

z.inverteO 

;Sim, vai para inverteO 
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inverteO 


inverta3 


loopinvl 


loopinv2 


id 

hl,(bufnor+#01) 

;Náo, obtém a pos. da string 

call 

setvdpwt 


antiga e prepara 0 VDP 

Id 

hl,bufnor+#03 

;hl->infcio da string antiga 

Id 

a.(bufnor) 

;a-comp. da string antiga 

Id 

b.a 


a-comp. da string antiga 

call 

esclinha 


escreve a string antiga 
no modo normal 

Id 

hl. (auxiliar) 


hl-pontoiro do BASIC 

Id 

a.(compstr) 


a«comp. da string 

or 

a 


comprimento-0? 

JP 

z.voltainv 


Sim, volta sem erro 

Id 

íx.bufnor 


Não. ajusta os butfers 

Id 

iy.bufínv 

:para a string normal e 

Id 

(ix+#00),a 

para a string invertida 

Id 

(iy+#00),a 

;com 0 comprimento da 

call 

calpadvid 

;calcula os padrões do video 

Id 

a.(grpacx) 

;obtóm a coord. x 

Id 

e.a 

;cok>ca em e 

Id 

a, (colunas) 

, obtém 0 número de colunas 

cp 

e 

;compara com 0 valor lido 

j P 

c.orroinv_05 

;Se valor lido > colunas 
:volta com erro 

Id 

a.(grpacy) 

;obtóm a coord. y 

cp 

24 

;ó maior do que 23? 

jp 

nc.errolnv_05 

;Sim, volta com erro 

call 

lefrase 


lè a string a inverter 

di 



desabilita as interrupções 

Id 

hl.(tabpad) 

;hUend. da tab de padrões 

push 

hl 

;sa!va 0 end. da tab. de 
padrões 

Id 

de.#e0'8 

;calcula 0 endereço do 

add 

hl, da 

;desenho do caractere #e0 

ex 

de. hl 

;de-end. do des. do carac. #eO 

Id 

C.#e0 

;c-#e0 

Id 

b,(bc+#00) 

;b-número do carac. da string 

Id 

Íx,bufrx>r+#03 


ix-end. da string normal 

Id 

iy,buíinv+#03 

* 

iy-end. da string invertida 

pop 

hl 

•.recupera hl 

push 

bc 

;salva bc 

push 

hl 

;salva hl 

push 

de 

;salva de 

Id 

de, #0008 

;bytes para 0 desenho de cada 
;caractere 

Id 

b,(ix+#00) 

;b-caractere a inverter 

add 

hl.de 

;calcula 0 endereço desse 

djnz 

loopinv2 

;caractere 
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pop 

de 

;recupera de 

loopinv3 

ld 

b,#08 

;propara a modificação 

call 

cpl 

rdvram 

;lê o byte original 
;inverte 


0X 

de. hl 

.Iransfere para o novo 


call 

wtvram 

;destino 


ex 

de, hl 

# 


ínc 

hl 

;hl*hl+1 


inc 

de 

;de-de+1 


djnz 

Ioopinv3 

;b-b*1 


pop 

hl 

;recupera hl 


pop 

bc 

;recupera bc 


ld 

(iy4#00).c 

;modifica a string 


inc 

c 

;oc+1 


inc 

inc 

ix 

;aponta para o próximo carac. 


djnz 

loopinvl 

;repete até o fim da string 

envmvert 


ld 

iy.bulmv 

;recupera o ponteiro do 
;buffor 


ld 

l.(iy+#01) 

;hl»end. de escrita da string 

l 


ld 

h.(iy+#02) 


call 

setvdpwt 

;ajus!a o VDP para escrita 


ld 

b,(iy+#00) 

;b-núm. de carac. da string 


ld 

hl,buíinv+#03 

;end. da string 


call 

esdinha 

;escreve a frase invertida 


ld 

a.#ff 

;sinaliza uma inversão 


ld 

ei 

ret 

(inversao).a 

f 

ihabilita as interrupções 
;retorna 

erroinv 05 


pop 

af 

;destrói o end. de retomo 


ÍP 

erro_05 

Vai para erro 04 

vokiínv 


pop 

af 

;destrói a pilha 


ÍP 

volta 

.volta para o BASIC 

tabinver 


delb 

#00 

;posiçâo X 


defb 

#00 

;posiçâo y 


defb 

#00 

;comprimento 


defb 

#00 

dlag de restauração 
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newcls 


kJ 

b.#02 

;b-núm. de valores 

ld 

ix.tabnewcls 

;ix->tab. de valores default 

call 

lecomandos 

• 

ld 

(auxiliar), hl 

;salva o ponteiro do BASIC 

ld 

a,(bc+#00) 

;obtém o primeiro valor 

cp 

#02 

verifica o limite 

ÍP 

nc,erro_Q5 

;se estiver fora, volta com 
erro 

call 

calpadvid 

icalcula os padrões do vídeo 

ld 

a, (colunas) 

;obtém o número do colunas 

ld 

e, a 

;e>número de colunas 

ld 

a,(ix+#01) 

;a-número de rotações 

inc 

e 


cp 

e 

;rotações>colunas? 

ÍP 

nc,erro_06 

;Sim. volta com erro 

or 

a 

;Zero rotações ’ 

jp 

z, volta 

;Sim, volta sem erro 

ld 

a,(ix+#00) 

, a-tipo de rotação 

or 

a 

;ó zero (esquerda)? 

ÍP 

nz.newclsO 

;Não, vai para newcls_0 


;newcls_1 faz o cis com rotação para a esquerda 
newcls 1 


loopclsl 1 


loopcls_12 


di 


;desabiiita as interrupções 

kJ 

b,(íx*#01) 

;b-número de rotações 

push 

bc 

;satva contador externo 

ld 

hl.(txtnam) 

;hl«end. tabela de nomes 

kf 

a, (colunas) 

;a-núm. de colunas 

ld 

e.a 

;de-núm. de colunas 

ld 

d,#00 

• 

ld 

a,(crtcnt) 

;a-número de linhas 

ld 

b.a 

;b-número de linhas 

push 

bc 

;salva contador intermediário 

call 

setvdprd 

prepara o VDP para leitura 

ld 

a, (colunas) 

;a«núm. de colunas 

push 

de 

;salva de 

push 

hl 

;salva hl 

ld 

hl.bufferiinha 

;hl aponta para o buffer 

ld 

b.a 

;b-núm. de colunas 

call 

lelinha 

;lã uma linha 

ld 

a,«20 

;a»carac. espaço em branco 
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kJ 

(hl).a 

.coloca o espaço na últ. pos. 


pop 

hl 

;recupera hl 


pop 

da 

;recupera de 


call 

setvdpwt 

;prepara o VDP para escrita 


push 

da 

;salva de 


push 

hl 

;salva hl 


kJ 

hl.bufferlinha+1 

;hl aponta para o butfer* 1 


(d 

a. (colunas) 

;a-núm. de colunas 


ld 

b.a 

;b-núm. de colunas 


call 

asdinha 

;envia a linha já rotada 


pop 

hl 

;recupera hl 


pop 

de 

;recuperade 


add 

hl.de 

;hl aponta para a próx. linha 


pop 

bc 

;recupera bc 


djnz 

loopcls_12 

;repete para as demais linhas 


pop 

bc 

;recupera bc 


djnz 

k>opcls_1 1 

;repete ató terminar todas 




;as rotações 


ai 


;habilita as interrupções 


ld 

hl.(auxiliar) 

;recupera o ponteiro do BASIC 


íp 

volta 

;retorna ao BASIC 

;newcls_0 faz o cis com 

rotação para a direita 

newcls_0 





di 

:desabilíta as interrupções 


ld 

b,(ix+#01) 

;b-número de rotações 

loopcIsOl 





push 

bc 

salva contador externo 


ld 

hl.(txtnam) 

hl-end. tabela de nomes 


ld 

a, (colunas) 

a-núm. de colunas 


ld 

e.a 

de-núm. de colunas 


ld 

d. #00 



ld 

a.(crtcnt) 

a-número de linhas 


ld 

b.a ;b-número de linhas 

loopcls 02 





push 

bc ;salva contador intermediário 


call 

setvdprd ;prepara o VDP para leitura 


ld 

a, (colunas) 

a-núm. de colunas 


push 

de 

salva de 


push 

hl 

salva hl 


ld 

hl.bufferlinha-f 1 ;hl aponta para o buffer+1 


kf 

b.a ;b-núm. de colunas 


call 

lelinha j 

lô uma linha 


kf 

a.#20 ;a-carac. espaço em branco 


kf 

hl.bufferlinha ;hl aponta para o buffer 
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M 

(Hl), a 

icoloca o ©spaço na prim. 



posição 

pop 

hl 

;recupera hl 

pop 

do 

;rocupera de 

cal! 

setvdpwt 

prepara o VDP para escrita 

push 

de 

;salva do 

push 

hl 

;salva hl 

ld 

hl.buffertinha 

;hl aponta para o buffer 

W 

a, (colunas) 

;a-núm. de colunas 

kl 

b.a 

;b«núm. de colunas 

call 

esdinha 

;onvia a linha já rotada 

pop 

hl 

;recupora hl 

pop 

de 

;recupera de 

add 

hl, do 

;hl aponta para a próx. linha 

pop 

bc 

;rocupera bc 

djnz 

loopcls_02 

;ropoto para as demais linhas 

pop 

bc 

;rocupora bc 

djn2 

kK>pcls_01 

;ropoto ató terminar todas 



;as rotações 

oi 


;habilita as interrupções 

w 

hl, (auxiliar) 

;recupera o ponteiro do BASIC 

JP 

volta 

;rotorna ao BASIC * 

tabnowcls 



dofb 

«00 

.lipo de cis 

dofb 

«00 

;número de rotações 

window 



kl 

ix.tabwindow 

;ix aponta p/ tabela 

ld 

b,«05 

;b-núm. de comandos 

call 

1 «comandos 

;lé as coordenadas 

ld 

(auxiliar), hl 

;salva o ptr. do BASIC 

call 

caipadvid 

palcula os parâmetros 



;do video 

ld 

ix.tabwindow 

;ix aponta p/ tabela 

ld 

h,(ix+#00) 

;h«x1 

ld 

I,(ix+«01) 

^-yl 

ld 

d,(ix+«02) 

;d-x2 

ld 

e,(ix+«03) 

;o-y2 

ld 

a.h 

, lesta se x2>x1 

cp 

d 

9 

ÍP 

nc,erro_05 

pt2<-x1>erro 

ld 

a.l 

lesta se y2>y1 

cp 

e 

t 

ÍP 

nc, erro 05 

y2<-y1->erro 
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ld 

a,e 

,a-y2 


cp 

24 

;y2>-24? 


JP 

nc.erro_05 

;Sim, volta com erro 


ld 

a, (colunas) 

;a-colunas na tela 


dec 

cp 

a 

d 

pc2> -colunas? 


IP 

c.orro_05 

;Sim. volta com erro 


ld 

a,(ix+tf04) 

:a-tipo de apresentação 


or 

a 

;é zero? 


jp 

nz, 20 om 

;Nào, vai para zoom 


call 

janola 

;Sim, chama janela 

windvolta 


ld 

hl, (auxiliar) 

;hl-ponteiro do BASIC 


ÍP 

volta 

;volta para o BASIC 

;a rotina zoom cria o efeito de explosão da janela 

zoom 


xor 

a 

2era o acumulador 


ld 

(bufcol).a 

;zera o buffor da coluna 


ld 

(buflin).a 

;zera o buffer da linha 


ld 

(cororl).hl 

;salva as coordenadas xl ,y1 


ld 

(coror2),de 

;salva as coordenadas x2,y2 


ld 

a.h 

;carrega a com h (xl) 


add 

a.d 

;soma com d (x2) e divide 


srl 

a 

:por dois para achar Xmodio 


dec 

a 

;decrementa Xmedio 


ld 

h.a 

;carrega h (xl) com Xmedio 


inc 

a 

;incrementa o ponto médio 


inc 

a 

;para que 

pc2-xH1. onde xl-Xmedio-1 


ld 

d, a 

;;carrega d com x2 


ld 

a,l 

;a-y1 


add 

a.e 

;soma com e (y2) e divide 


srl 

a 

;por dois para achar Ymedio 


dec 

a 

;decrementa Ymedio 


ld 

u 

;carrega 1 (yl ) com Ymedio 


inc 

a 

;incrementa o ponto médio 


inc 

a 

;paraque 

^2-y UI, onde yl -Ymedio 1 


ld 

e.a 

;carrega e com y2 


call 

janela 

;desenha a primeira janela 

looptest 

call 

coluna 

verifica em rei. à coluna- 


call 

linha 

;limite 

; verifica em rei. à linha* 
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;limite 



ca II 

janela 

idesenha a janela 


call 

espjanela 

;retardo para tornar 0 efeito 
Risível 


call 

teste2 

;verifica se já chegou à 
janela final 


K 

nz.looptost 

;Não, continua com a explosáo 


ld 

hl.(cororl) 

, imprime a janela final 


kl 

de,(coror2) 



call 

janela 



jp 

windvolta 

;retorna ao BASIC 

coluna 

ld 

a,(coror1+#01) 

;a-coord. xl original 


cp 

h 

;já foi atingida? 


V 

nc.fimcol 

;Sim, vai para fimcol 


dec 

h 

;Nâo, xl-xl-1 


Inc 

d 

;x2-x2-»-1 


ret 


;retorna 

fimcol 

ld 

a.#01 

;indica que a coluna-limite 


ld 

(bufcol).a 

,foi atingida 


ret 


;retorna 

linha 

ld 

a.(cororl) 

;a»coord. yl original 


cp 

1 

•já foi atingida? 


i r 

nc, fimlin 

;Sim, vai para fimlin 


dec 

1 

;Nào, yl-yl-1 


inc 

e 

*2-y2+1 


ret 


;retorna 

fimlin 

ld 

a, #01 

;indica quo a linha-limite 


ld 

(buflin).a 

;foi atingida 


ret 


;retorna 

aspjanela 

push 

aí 

;salva os registros 


push 

hl 

;afetados 


ld 

hl.#1000 

;altere este valor para mudar 

espjanelal 

• 



dec 

hl 

;o retardo. Decrementa hl 


ld 

a,h 

;verrfica se chegou 


or 

1 

;ao fim 


i r 

nz.espjanelal 

;Nào, volta para espjanolal 


pop 

hl 

.recupera os registros 


pop 

aí 



ret 


;e retorna 

teste2 

ld 

a.(bufcol) 

verifica se a coluna- 


cp 

#01 

;limite foi atingida 
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contas 


Jr 

z.contes 

;Sim. vai para contes 

ret 


;Não, retorna 

W 

a,(buflin) 

verifica se a linha- 

cp 

#01 

;limite foi atingida 

ret 


jretorna. Flag Z será o 


;indicador. 


;a rotina janala ó a responsável pelo desenho da própria 
;janela no video 


janela 


janell 


janel2 


push 

bc 

.salva todos os registros 

push 

de 

;alterados pela rotina 

push 

hl 


call 

posit 

posiciona o cursor ©m xl ,y1 

td 

a,d 

:a-x2 

sub 

h 

;a-x2-x1 

dec 

a 

;a=núm. de pos. da linha do 



,iopo 

W 

b.a 

;b-núm. de pos. da linha do 



;topo 

push 

bc 

;salva núm. pos. da linha do 



;topo 

ld 

a,# 18 

;a«carac. do canto sup. esq. 

out 

(#98).a 

;escrovo o caractere 

ex 

(sp),hl 

;demora para sincronização 

ex 

(sp).hl 


ld 

a.#17 

;a-traço horizontal 

out 

(#98), a 

;escreve a linha superior 

ex 

(sp).hl 

;demora para sincronização 

ex 

(sp).hl 


djnz 

janell 


ld 

a, #19 

;a>carac. do canto sup. dir. 

out 

(#98), a 

;escreve o caractere 

pop 

bc 

;recupera núm. pos. linha do 



íopo 

ld 

l.e 

;l-y2 

call 

posit 

.coloca o cursor em xl ,y2 

ld 

a,#1a 

;a«carac.do canto inf. esquerdo 

out 

(#98).a 

;escrove o caractere 

ex 

(sp).hl 

;demora para sincronização 

ex 

(sp),hl 


ld 

a.# 17 

;a-traço horizontal 

out 

(#98), a 

;escreve a linha inferior 

ex 

(sp),hl 

;demora para sincronização 
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jane!3 


jane!4 


tabwiodow 


bufcol 


ox 

(sp),hl 


djnz 

janol2 


In 

a.#1b 

;a>carac. do canto inf. dir. 

out 

(#98), a 

;escreve 0 caractere 

pop 

hl 

:rocuporax1.y1 

pop 

do 

;recupora x2,y2 

push 

do 

;salva x2,y2 

push 

hl 

;salva xl ,y 1 

ld 

a.e 

;a-y2 

sub 

1 

;a-y2*y1 

d BC 

a 

.a-núm. de pos. verticais 

ld 

b.a 

;b-núm. do pos. verticais 

ld 

a, d 

;a-x2 

sub 

h 

;a-x2-x1 

dec 

a 

;a-núm. de pos. horizontais 

ld 

c.a 

;c-núm. de pos. horizontais 

inc 

1 

;yi-yui 

ca II 

posit 

;posick>na 0 cursor 

ld 

a, #16 

;a-traço vertical 

oul 

(#98), a 

;escreve o caractere 

push 

bc 

;salva núm. de pos. verticais 

ld 

b.c 

;b«núm. de pos. horizontais 

ld 

a, #20 

;a-caractoro espaço em branco 

out 

(#98), a 

;escreve o carac. para limpar 

ex 

(sp).hl 

;demora para sincronização 

ex 

(sp).hl 


djnz 

janal4 

;a janela 

ld 

a, #16 

;a-traço vertical 

out 

(#98), a 

•.escreve o caractere 

inc 

1 

^i-yi+i 

pop 

bc 

;recupera núm. de pos. 



;vort içais 

djnz 

janol3 

;repete ató acabar as linhas 



;vert. 

pop 

hl 

jrecupera os registros salvos 

pop 

do 


pop 

bc 


ret 


;e retorna 


defb 

#00 

;coordenadax1 

defb 

#00 

;coordenaday1 

defb 

#00 

; coordenada x2 

defb 

#00 

;coordenaday2 

defb 

#00 

,1ipo de apresentação 

defb 

#00 

;buffer auxiliar 
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buflin 

defb 

#00 

;buffer auxiliar 

cororl 

dofw 

#0000 

;buffer auxiliar 

coror2 

detw 

#0000 

;buffer auxiliar 


;a rotina menu faz a seloçáo om menus 
menu 


ld 

ix.tabmenu 

;ix aponta p/ tabela 

ld 

b.#06 

;b-núm. de argumentos 

call 

lecomandos 

;lô os argumentos 

dec 

hl 

;decromenta o ptr. do BASIC 

ld 

ix.chrgtr 

;obtém o próximo caractere 

call 

chamabasic 

• 

cp 

• • 

;é vírgula? 

ÍP 

nz. aborta 

;Nâo. erro do sintaxe 

ld 

ix.chrgtr 

;Sim. obtém o próximo 

call 

chamabasic 

;caractere 

ÍP 

z, aborta 

;Se fim de linha->aborta 

ld 

ix.varsrc 

-.procura a variável 

call 

chamabasic 

;inteira 

ld 

(endvar).de 

;salva o end. da var. 

ld 

a.(valtyp) 

;obtém o tipo da var. 

cp 

#02 

;é inteiro? 

ÍP 

nz.erro_13 

;Náo, erro de tipo 

ld 

(auxiliar), hl 

;salva o ptr. do BASIC 

kJ 

ix.tabinver 

;ix aponta p/ tabinver 

ld 

ry.tabmenu 

;iy aponta p/ tabmenu 

ld 

a.(iy+#02) 

;a-x2 

cp 

(iy+#00) 

pt2>-x1? 

ÍP 

c.erro_05 

;Nào, emite erro 

ld 

a,(iy+#03) 

;a-y2 

cp 

(iy+#01) 

;y2>-yt? 

jp 

c.erro_05 

;Náo, emite erro 

call 

calpadvid 

;calcula pars. do video 

ld 

a. (colunas) 

;a«x1 

dec 

a 


cp 

(iy+#00) 

;x1>colunas? 

jp 

c.erro_05 

;Sim, emite erro 

cp 

(iy+#02) 

;x2>colunas? 

ÍP 

c.erro_05 

.Sim, emite erro 

ld 

a.24 ~ 

;a-núm. máx. de linhas 

cp 

(iy>**#01) 

y1>24? 

JP 

c,erro_05 

;Sim. emite erro 

cp 

(iy+#03) 

^2>24? 

ÍP 

c.erro_05 

;Sim, emite erro 

ld 

h,(iy+#00) 

;h-x1 
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ld 

Uiy+#oi) 

;Uy1 

ld 

d,(iy+#02) 

;d-x2 

ld 

e.(iy+#03) 

;e-y2 

ld 

a,(iy+#04) 

;a-comprimento das opções 

ld 

(ix+#02),a 

;salva em tabinver 

ld 

a, #01 

;a-#01 

ld 

(ix+#03) f a 

;ajusta a flag de 
;restauração 

ld 

(cooratual).hl 

;salva a pos. atual 

xor 

a 

;zera a opção atual 

ld 

(opcao).a 

t 

ld 

(inversao).a 

;zera a inversão 

ld 

a.h 

;compara xl com 

cp 

d 

;x2 

jp 

z, vertical 

;se xl mx2 mov. vertical 

ld 

a.l 

;compara yl com 

cp 

e 

.72 

ÍP 

nz, aborta 

;se não forem iguais 
;emite erro de sintaxe 


;a rotina horizontal controla o mov. horizontal. Na rotina 
;horizontal, temos o cálculo do valor da opção final e. a 
;partir de horizont_2. temos o controle do movimento 
propriamonte dito 


horizontal 


ld 

a.(compopcao) 

;a-comp. das opções 


ld 

e.a 

;salva a em e 


ld 

a, (passo) 

;a-incremento entro as 


add 

a.e 

;opçóes 

;a-passo+comprimento 


ld 

e.a 

;salva a em e 


ld 

a.(coordxl) 

;a-x1 


ld 

e.a 

;c-x1 


ld 

a.(coordx2) 

;a-x2 


ld 

b,#00 

;zera o registro b 

horizonfl 


sub 

e 

;subtrai a do o 


i f 

c.horiz 11 

;So ostourou. sai do loop 


inc 

b 

;incrementa b 


cp 

c 

;a«x1? 


Jr 

nz, horizont 1 

;Náo, volta para horizont 

horiz_1 1 

ld 

a,b 

;a-opçáo máxima 


ld 

(opcaofim).a 

;safva em opcaofim 


horizont 2 
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tó 

ix.tabinver 

ix ponta p/ tabinvor 

ld 

hl,(cooratual) 

hl-posição atual 

W 

a.h 


W 

(ix+#00),a 


ld 

a,l 


ld 

(ix+#01),a 


call 

rotinversao 

■faz a inversão 

call 

rdstick 

lê joystick/teclado 

cp 

#03 

o mov. foi para a direita? 

ÍP 

z, movdir 

Sim, vai para movdir 

cp 

#07 

o mov. foi para a esquerda? 

iP 

z.movesq 

Sim, vai para movesq 

cp 

#f1 

Return ou tiro? 

ÍP 

z.fimsel 

Sim, vai para fimsel 

V 

horizont_2 

;focha o kx>p 


;a rotina movdir controla o movimento para a direita 


movdir 


kJ 

a.(passo) 

;a-incremento 

ld 

o.a 

;e-a 

ld 

a.(xatual) 

;a-posiçáo x atual 

add 

a, a 

;soma x atual com o 



;incremento 

ld 

e,a 

;e-x atuaUpasso 

kJ 

a.(compopcao) 

;a-comp das opções 

add 

a.e 

;a-x atual+passo+comp. 

ld 

e.a 

;e=x calculado 

ld 

a,(coordx2) 

;a»coord. x limite 

cp 

e 

pr calculado > x limite? 

V 

c, movdiM 

;Sim, vai para movdiM 

ld 

a.e 

;Não, a-x calculado 

ld 

(xatual),a 

:modifica x atual 

ld 

a.(opcao) 

;incrementa o valor da 

inc 

a 

;opçáo 

ld 

(opcao).a 

• 

ÍP 

horizont_2 

^rolta para horizont 2 

movdiM 



ld 

a.(coordxl) 

;hUcoord. original 

ld 

h,a 

« 

ld 

a.(coordyl) 

• 

* 

ld 

U 

• 

• 

ld 

(cooratual).hl 

;salva em cooratual 

xor 

a 

;zora a opção 

ld 

(opcao), a 

;salva em opção 

ÍP 

honzont_2 

;voHa para horizont_2 
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;a rotina movosq controla o movimento para a esquerda 


movesq 


ld 

a, (passo) 

;a-incremento 


ld 

e.a 

;e-a 


ld 

a.(xatual) 

;a-x atual 


ld 

c.a 

;salva a em e 


ld 

a.(coordxl) 

;a-x1 


cp 

C 

;x atual-xl 


V 

z.movesq_1 

;Sim, vai para movesq 


ld 

a,c 

;Não, calcula nova pos. 


sub 

e 

;a-x atual-passo 


ld 

e.a 

:e-x atual-passo 


ld 

a.(compopcao) 

;a»comp. das opções 


ld 

c.a 

;salva a em c 


ld 

a,e 

;a-x atual-passo 


sub 

c 

;a«x atual-passo-comp 


ld 

(xatual).a 

;modífica xatual 


ld 

a.(opcao) 

;decromenta o valor 


dec 

a 

;da opção 


ld 

(opcao).a 

1 


IP 

honzont_2 

;volta para horizont_2 

movesq_1 


ld 

a.(coordx2) 

;hl-coord. original final 


ld 

h.a 



ld 

a,(coordy2) 



ld 

l.a 



ld 

(cooratual).hl 

;salva em cooratual 


ld 

a.(opcaofim) 

;a-opç5o final 


ld 

(opcao).a 

;salva em opção 


jp 

horizont_2 

^echa o loop 


;a rotina vertical controla o movimento vertical. Na rotina 
vertical, temos o cálculo do valor da opção final o, a 
rpartir de vertical_2, temos o oontrole do movimento 
;propriamente dito 


vertical 


ld a.(passo) 

ld e.a 

ld a.(coordyl) 

ld c,a 

ld a,(coordy2) 

ld b.ãOO 


;a-incromento entre as 

;opçóes 

;salva a em e 

;a-y1 

;c-yl 

;a-y2 

;zera o registro b 
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verticaM 





sub 

e 

;a*a-passo 


inc 

b 

;incrementa o registro b 


cp 

c 

;a-y1? 


\r 

nz.verticall 

;Náo, volta para vertical_1 


ld 

a,b 

;a-opção máxima 


ld 

(opcaofim).a 

:salva em opcaolim 

vertical_2 





ld 

ix.tabinver 

;ix aponta p/ tabinver 


ld 

hl.(cooratual) 

;hUpostção atual 


ld 

a.h 

;salva a pos. a inverter 


k) 

(ix+#00).a 

t 


ld 

a.l 

f 


ld 

(ix+#01).a 

• 


call 

rot inversão 

;faz a inversão 


call 

rdstick 

;le joystick/leclado 


cp 

#05 

;o movimento foi para baixo? 


jp 

z.movbai 

;Sim, vai para movbai 


cp 

#01 

;o movimento foi para cima? 


IP 

z.movcim 

;Sim. vai para movcim 


cp 

#tf 

;Return ou tiro? 


ÍP 

z.fimsel 

;Sim, vai para fimsol 


ÍP 

vertical .2 

;N5o, fecha o loop 

;a rotina movbai controla o movimento para baixo. 

movbai 





ld 

a, (passo) 

;a-incremento entre as 




;opçóes 


ld 

e,a 

, salva a em e 


ld 

a.(yalual) 

;a-y atual 


add 

a,e 

;a-y atual+passo 


ld 

e,a 

;safva o resultado em e 


ld 

a.(coordy2) 

;a-y2 


cp 

e 

Tf atual>y2? 


ÍP 

c,movbai_1 

;Sim, vai para movbai l 


ld 

a.o 

;Não, a-y atual 


ld 

(yatual).a 

;salva em yatual 


ld 

a.(opcao) 

;incrementa a opçáo 


inc 

a 

;atual 


ld 

(opcao).a 

;salva em opção 


jP 

vertlcal_2 

^olta para vertical_2 

movbai _1 





ld 

a.(coordxl) 

;hl-posiçâo inicial 
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ld 

h,a 



td 

a.(coordyl) 



ld 

l.a 



ld 

(cooratual), hl 

;salva em cooratual 


xor 

a 

;zera a opção atual 


ld 

(opcao), a 



lP 

vertical_2 

.volta para vertical_2 

;a rotina movcim controla o movimento para cima 

movcim 





ld 

a. (passo) 

.a-incremento entre as 




;opçôes 


ld 

e,a 

.salva a em e 


ld 

a.(coordyl) 

,a-y1 


ld 

c.a 

salva yl em c 


ld 

a.(yatual) 

a-y atual 


cp 

c 

y atual-yl? 


\r 

z.movciml 

,Sim, vai para movcim_ 


sub 

e 

Nào, a-y atual-passo 


ld 

(yatual),a 

salva em yatual 


ld 

a.(opcao) 

decrementa o valor da 


dec 

a 

opção atual 


ld 

(opcao), a 

salva em opcao 


jp 

vertical_2 

volta para vertical_2 

movcím_1 





ld 

a,(coordx2) 

hl-posiçào final 


ld 

h.a 



ld 

a,(coordy2) 



ld 

l.a 



ld 

(cooratual).hl 

salva em cooratual 


ld 

a.(opcaofim) 

a-valor da opçáo final 


ld 

(opcao).a 

salva em opcao 


jP 

vertical_2 

volta para vertical_2 

;a rotina fímsel promove a atualização da variável inteira 

;e retorna para o BASIC 



fimsel 





ld 

hl.(endvar) 

hl-end. da var. inteira 


ld 

a,(opcao) 

a-valor da opção 


ld 

(hl).a 

atualiza a variável 


inc 

hl 



ld 

(hl).#00 
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call 

kilbuf 

;limpa o buffor do teclado 


kJ 

hl, (auxiliar) 

;obtém o ptr. do BASIC 

tabmenu 

coordl 

ÍP 

volta 

;votta para o BASIC 

coordxl 

defb 

#00 


coordyl 

defb 

#00 


coord2 

coordx2 

defb 

#00 


coordy2 

defb 

#00 


compopcao 

defb 

#00 


passo 

defb 

#00 



;a rotina rdstick lô o estado dos joysticks e das teclas 
;do cursor 


rdstick 



push 

ix 

;salvaos registros 

push 

*y 

;afetados 

push 

bc 


push 

de 


push 

hl 


rdstick 1 



ld 

a,#00 

;lô o estado 

call 

gtstck 

;das teclas do cursor 

or 

a 

;alguma tecla pressionada? 

k 

nz.fimstick 

;Sim, vai para fimstick 

ld 

a,#01 

;lô o estado do 

call 

gtstck 

Joystick na porta A 

or 

a 

;algum movimento? 

Jr 

nz.fimstick 

;Sim, vai para fimslick 

ld 

a, #02 

;lè o estado do 

call 

gtstck 

Joystick na porta B 

or 

a 

'.algum movimento? 

jr 

nz.fimstick 

;Sim, vai para fimslick 

ld 

a, #00 

;lê o estado da barra 

call 

gttrig 

;de espaço 

or 

a 

,-foi pressionada? 

k 

nz.fimstick 

;Slm, vai para fimslick 

ld 

a.#01 

;lè o estado do botão de 

call 

gttrig 

;tiro do joystick A 
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or 

a 

;foi pressionado? 


jr 

nz.fimstick 

;Sim, vai para fimstick 


ld 

a, #02 

;ló o estado do botão de 


call 

gttrig 

,liro do joystick B 


or 

a 

,-foi pressionado? 


V 

z.rdstickj 

;Nâo, volta para rdstick_1 

fimstick 

push 

af 

;salva o valor lido 


*ld 

hl, #8000 

provoca um pequeno 

loopendst 

dec 

hl 

[retardo pa/a que as 


ld 

a,h 

[seleções não sejam 


or 

1 

irápidas demais 


jr 

nz, loopendst 



pop 

af 

[recupera o valor lido 


pop 

hl 

recupera todos os 


pop 

de 

registros salvos 


pop 

bc 

no inicio da rotina 


pop 

•y 



pop 

a ; 



ret 


retorna 


;a rotina calpadvid calcula os padrões do vídeo: tabela de 
;padrôes o o número de colunas. Os valoras resultantes são 
;colocados em tabpad e colunas, respectivamente. 


calpadvid 


ca!pad_1 

calpad_2 


ex 

exx 

af.af 

ld 

hl.(txtcgp) 

ld 

a. (versão) 

or 

a 

i r 

z.calpad_1 

ld 

a.(linlen) 

cp 

41 

ir 

c.calpadjl 

ld 

a,80 

add 

hl, hl 

K 

calpad_2 

ld 

a, 40 

ld 

(colunas).a 

ld 

(tabpad), hl 

exx 

ex 

ret 

af.af’ 


;salva o registro af 
;sa!va os demais registros 
;obtóm a tab. de padrões 
;obtóm a versão 
;do MSX. ÉMSX1? 

;Sim, vai para calpad_1 
:obtóm o tamanho da tela 
:0 MSX2 está em 80 colunas? 
;Náo, vai para calpad_1 
;Sim, a-80 colunas 
;calcula novo end. da 
gabela de padrões 
;vai para calpad_2 
;a-40 colunas 
;salva as colunas 
isalva o end. da tab. de 
;padrões 

;recupera os registros salvos 


•.retorna 
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;a rotina lefrasa transporta da tela para o buffer bufnor 

;a sentença a inverter 

lefrase 


push 

af 

;salva os registros 

push 

bc 

;modiíicados por esta 

push 

de 

;rotina 

push 

hl 

• 

call 

calendfra 

;calcula o end. da string 
;na VRAM 

call 

setvdprd 

;prepara o VDP para leitura 

ld 

b,(ix+#00) 

;obtóm o comp. da string 

kl 

hl,bufnor+#03 

;hl->infcio da string 

call 

lelinha 

;lê a string 

pop 

hl 

;recupora os registros 

pop 

de 

;salvos 

pop 

bc 

• 

pop 

af 

1 

ret 


;retorna 


;a rotina calendfra, baseada nas coordenadas fornecidas, calcula o endereço da sentença 
;lnvorter na memória VRAM 


calendfra 

ld 

h,#00 

;calcula o end. da string 


ld 

d.h 

;na memória VRAM baseada 


ld 

a.(grpacy) 

;nas coordenadas passadas 


ld 

l.a 

• 


or 

a 

;a string está na linha 0? 


V 

z.calendl 

;Sim, vai para calendl 


ld 

l.h 

;Nào. calcula o end. do 


ld 

b.a 

;in(ck> da linha 


ld 

a. (colunas) 

9 


ld 

e.a 

9 

kx>pcal_1 

add 

hl.do 

9 


djnz 

loopcaM 

9 

calendl 

ld 

a.(grpacx) 

;obtóm a coord. x 


ld 

e.a 

;e-coord. x 


add 

hl.de 

;soma ao end. já oncontrado 


ld 

(bufnor+#01) 

,hl;salva no buffer das sthngs 


ld 

(bufinv+#01 ) 

,hl;n rmal e invertida 


ret 


;retorna 


;a rotina posit posiciona o cursor nas coordenadas passadas 
;por hl. h-x e l-y 
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posit 



push 

a( 


push 

bc 


push 

de 


push 

hl 


ex 

de.hl 


ld 

hl. #0000 


ld 

a,e 


or 

a 


ir 

z.posit2 


push 

de 


ld 

b.a 


ld 

a, (colunas) 


ld 

e.a 


ld 

d. #00 

posit 1 

add 

hl.de 


djnz 

positl 


pop 

de 

posit2 

kj 

a.d 


or 

a 


jr 

Z,posrt3 


ld 

e.a 


ld 

d, #00 


add 

hl.de 

pOSÍt3 

call 

setvdpwt 


pop 

hl 


pop 

de 


pop 

bc 


pop 

af 


ret 



;salva todos os 
;registros afetados 
;por esta rotina 

;troca o conteúdo de hl pelo 
;de de 
?era hl 
;a-linha 
;é igual a zero 7 
;Sim. vai para posit2 
;Nào, salva as coordenadas 
ib-núm. da linha 
;a-núm. do colunas 
;e-núm. de colunas 
;de-núm. de colunas 
;hl-hl+núm. de colunas 

;recupera as coordenadas 

;a»coluna 

;é igual a zero? 

;Sim, vai para posit3 
;Não. e-coluna 
;de«coluna 

;hl aponta para o end. da 
;VRAM 

;correspondente a xl ,y 1 
prepara 0 VDP para escnta 
;recupera os registros 


;e retorna 


;inícb da lista com os nomes dos novos comandos e 
;endereços de chamada 


defm 

■REVERSE" 

;nome do comando 

delb 

#00 

;fim do nome 

defw 

inverte 

;end. da rotina 

defm 

•CLRSCR- 

;nome do comando 

defb 

#00 

;fim do nome 

defw 

newcls 

;end. da rotina 

defm 

■WINDOW 

;nome do comando 

defb 

#00 

^im do nome 
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defw 

wmdow 

;end. da rotina 


defm 

"MENU" . 

;nomo do comando 


defb 

«00 

;fim do nome 


dofw 

menu 

;end. da rotina 

endlista 

defb 

«00 

.'fim da lista 

;rotinas para o acosso diroto à RAM de vídeo 


rdvram 





call 

setvdprd 

;ajusta o VDP para leitura 


in 

a, (#98) 

;lê um byte 


rot 


;retorna 

wtvram 





push 

af 

;safva o dado a enviar 


call 

setvdpwt 

;ajusta o VDP para escrita 


pop 

af 

;recupera o dado a enviar 


out 

(«98).a 

;envia 


ret 


.retorna 

setvdprd 





ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

ó MSX1? 


V 

z. rdvram 1 

Sim, vai para rdvram 1 


xor 

a 

Não, inicializa o VDP 


out 

(#99),a 

do MSX2 


ld 

a, «8a 



out 

(«99). a 


rdvram 1 

ld 

a.l 

informa ao 


out 

(#99).a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99),a 



ox 

(sp).hl 

demora para 


ex 

(sp).hl 

sincronização 


ret 




setvdpwt 

ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

é MSX1? 


)r 

z.wtvraml 

Sim, vai para wtvram 1 


xor 

a 

Não, inicializa o VDP 


out 

(«99).a 

do MSX2 


ld 

a,#8e 
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out 

(#99),a 


wtvraml kJ 

a.l 

;iníorma ao 

out 

(#99), a 

;VDP o endereço na 

ld 

a,h 

;VRAM onde o 

and 

#3f 

;dado será 

or 

#40 

;gravado 

out 

(#99).a 

• 

ex 

(sp).hl 

idemora para 

ex 

(sp),hl 

;sincronizaçâo 

ret 


;retorna 


;a rotina lelinha transporta uma linha da VRAM para a RAM 

lelinha 

in 

a,(#98) 

;lò o carac. da VRAM 

ld 

(hl), a 

;sah/ao no butter apontado 

inc 

hl 

;por hl 

;incrementa o ponteiro do 

djnz 

lelinha 

;buffer 

.prepara a próxima leitura n 

ret 


,1ela 

;retorna 


;a rotina asclinha transporta uma linha da RAM para a VRAM 


esclinha 

ld 

a, (hl) 

;lô o carac. do buffer 


out 

(#98),a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro do 


djnz 

esclinha 

ibufler 

;propara a próxima escrita na 


rat 


dela 

-.retorna 


;área das variáveis usadas no programa 
bufnor 


defb 

#00 

damanho da string 

defw 

#0000 

; posição de escrita 

dofs 

33 

£tring 

defb 

#00 

damanho da string 

defw 

#0000 

;posiçâo de escrita 


bulinv 
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defs 

33 

inversão 

dofb 

#00 

compstr 

defb 

#00 

colunas 

defb 

#00 

tabpad 

defw 

#0000 

auxiliar 

dofw 

#0000 

endvar 

defw 

#0000 

opcao 

defb 

#00 

opcaofim 

dofb 

#00 

cooratual 

yatual 

defb 

#00 

xatual 

defb 

#00 

bufferlinha 

defs 

81 

fim 

equ 

$ 


;strmg 

,*flag de campo já invertido 
:comprimento da string 
;número de colunas na tela 
;endereço da tab. de padrões 
;ponteiro do BASIC 
;ond. da variável BASIC 
;valor da opçáo atual 
, •valor da opçáo final 
;coordenadas atuais 

y 

pc 

;buffer de linha da tela 


Listagem em linhas DATA do còdlgo-objeto do programa qua Implementa o comando 
MENU: 

10 FOR AI-&HD000 TO 4HD79E 
20 RXAD B$ 

30 POKE A% . VAL {" 4H"+B$) 

40 NEXT A% 

50 BSAVE "PROG25 .BIN" , fcHDOOO, (RD79E 

100 DATA F3, DB, A8, 47, E6, TO, OF, OF, OE, OF, BO, D3, A8, E6, 03, 32 
110 DATA 2E, DO, 78,21,20, DO, 11, Bl, FF, 01, 05, 00, ED, BO, 21, 32 
120 DATA DO, 11, 00, 40, 01 , 6C, 07, ED, BO, D3, A8, FB, C9, F7, 00, 00 
130 DATA 40, C9, F5, C5, D5, E5, 7B, FE, 02 , C2, 20, 40, 2A, AF, F6, 7E 
140 DATA B7 , C2, 14,40,23, 23, 23, 23, DD, 21 , 66,46, CD, B3, 40, CD 
150 DATA 25, 40, El, Dl, Cl, F1,C9, 22, 12, 47, 21,53, 46, 01, 23, 00 
160 DATA ED, 5B, 12 , 47, LA, ED, Bl , E2 , 48 , 40, 13, IA, BE, C2, 2E, 40 
170 DATA 23, 7E. FE, 00, CA, 49, 40, C3, 38, 40,C9,23, 4E, 23, 46, F1 
180 DATA C5, ED, 53, 12, 47 , EB, C9, DD, E5, DD. E5, DD, 21, 66, 46, CD 
190 DATA B3, 40, DD, El, 28, IA, FE, 2C, 28 , 12, 2B, DD, E5, C5, DD, 21 
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200 DATX 0E, 52, CD, B3, 40, Cl, DD, El, 7B, DD, 77, 00, DD, 23,10, D9 
210 DATA DD. Kl, C9 , 3E. 05,32, 14 , F4. 18,07, 3E, OD, 32 , 14 , F4, 18 
220 DATA 00, El , Dl , Cl, Fl , 3A, 14 , F4, 5F, C9, 2B, AF, 32 , 14, F4, Dl 
230 DATA Dl, Cl, TI, Dl, Cl. Fl, DD, El, DD, El, P5, C5, D5, DD, 21, 66 
240 DATA 46, C3, B3 ,40, C9, CD, 59,01, C9, 06, 04 , DD, 21 , 9B, 41, CD 
250 DATA 55, 40, 22, 12, 47, CD, CC, 40, 2A, 12, 47, C3, 98, 40, DD, 7E 
260 DATA 00 , 32, B7 , FC, DD, 7E, 01,32, B9, FC, DD, 7E, 02 , 32, OE, 47 
270 DATA FE, 21 , D2 , 93, 41 , DD, 7E, 03, B7 , 28, 1C, 3A, OD, 47, B7. 28 
280 DATA 16, 3A, C5, 46. B7, 28, 10, 2A, C6, 46, CD, 9D, 46, 21, C8, 46 
290 DATA 3A, C5, 46, 47, CD, BE, 46, 2 A, 12,47, 3A, OE, 47 , B7, CA, 97 
300 DATA 41, DD, 21, C5, 46, FD, 21, E9, 46, DD, 77, 00,175,77,00. CD 
310 DATA D2, 45, 3A, B7, FC, 5F, 3A, OF, 47 , BB, DA, 93, 41 , 3A, B9, FC 
320 DATA FE, 18, D2, 93, 41 , CD, F4, 45, F3, 2 A, 10, 47, E5, 11, 00, 07 
330 DATA 19, EB, OE, EO, DD, 46, 00, DD, 21 , C8, 46 , FD, 21 , EC, 46, El 
340 DATA C5, E5, D5, 11, 08, 00, DD, 46, 00, 19, 10, FD, Dl, 06, 08. CD 
350 DATA 77, 46, 2F, EB, CD, 7D, 46, EB. 23. 13, 10, F3, El, Cl. FD. 71 
360 DATA 00, OC, DD, 23, FD, 23, 10, D8, FD, 21, E9, 46, FD, 6E, 01, FD 
370 DATA 66,02, CD, 9D, 46, FD, 46,00, 21,EC, 46, CD, BE, 46, 3E, FF 
380 DATA 32, OD, 47 , FB, C9, Fl , C3, 81, 40, Fl, C3 , 98, 40, 00, 00, 00 
390 DATA 00, 06, 02, DD, 21, 5C, 42, CD, 55, 40, 22, 12, 47, DD, 7E, 00 
400 DATA FE, 02, D2, 81, 40, CD, D2, 45, 3A, OF, 47, 5F, DD, 7E, 01, 1C 
410 DATA BB, D2, 81 , 40, B7 , CA, 98,40, DD, 7E, 00 , B7 , C2 , 13. 42, F3 
420 DATA DD, 46, 01 , C5. 2A, B3, F3, 3A, OF, 47, 5F, 16, 00, 3A, Bl, F3 
430 DATA 47.C5.CD, 85. 46, 3A, OF, 47, D5. E5, 21 , IA, 47 , 47, CD, B7 
440 DATA 46, 3E, 20, 77, El, Dl, CD, 9D, 46, D5, E5 , 21, 1B, 47, 3A, OF 
450 DATA 47, 47, CD, BE, 46, El , Dl , 19, Cl , 10, D6 , Cl , 10, C5, FB, 2A 
460 DATA 12,47, C3 ,98, 40, F3, DD, 46, 01 , C5, 2A, B3, F3 , 3A, OF, 47 
470 DATA 5F, 16, 00 , 3A, Bl , F3, 47 , C5, CD. 85, 46, 3A, OF. 47, D5, E5 
480 DATA 21, 1B, 47. 47, CD. B7, 46. 3E. 20, 21, IA. 47, 77, El, Dl, CD 
490 DATA 9D, 46, D5, E5, 21, IA, 47, 3A, OF, 47, 47, CD, BE, 46, El, Dl 
500 DATA 19, Cl , 10, D3, Cl , 10, C2, FB, 2A,12, 47, C3, 98, 40, 00, 00 
510 DATA DD, 21, 7D, 43, 06, 05, CD, 55, 40, 22, 12, 47, CD, D2, 45, DD 
520 DATA 21, 7D, 43, DD, 66, 00, DD, 6E, 01, DD, 56, 02, DD, 5E, 03, 7C 
530 DATA BA, D2, 81, 40, 7D. BB, D2, 81.40.7B, FE, 18,02,81,40, 3A 
540 DATA OF, 47, 3D, BA, DA, 81, 40, DD, 7E, 04, B7, C2 , A5, 42, CD, 1F 
550 DATA 43, 2A, 12, 47, C3, 98, 40, AF, 32,82, 43,32, 83, 43, 22, 84 
560 DATA 43, ED, 53, 86, 43, 7C, 82, CB, 3F, 3D, 67, 3C, 3C, 57, 7D, 83 
570 DATA CB,3F,3D, 6F,3C,3C, 5F, CD, 1F, 43, CD, E6, 42 , CD, F5, 42 
580 DATA CD, 1F, 43, CD, 04,43, CD, 11, 43,20, ET, 2A, 84,43, ED, 5B 
590 DATA 86, 43, CD, 1F, 43,C3, 9F, 42, 3A, 85, 43, BC, 30,03,25, 14 
600 DATA C9, 3E, 01, 32, 82, 43, C9. 3A. 84, 43, BD, 30, 03, 2D, 1C. C9 
610 DATA 3E, 01, 32, 83, 43, C9, F5, E5, 21,00, 10, 2B, 7C, B5, 20, FB 
620 DATA El.Fl, C9, 3A, 82, 43, FE, 01,28,01,C9,3A,83,43, FE, 01 
630 DATA C9, G5, D5 , E5, CD, 2B, 46, 7A, 94 , 3D, 47 , C5, 3E, 18, D3, 98 
640 DATA E3 , E3, 3E, 17, D3, 98, E3 , £3, 10, F8, 3E, 19, D3 , 98, Cl, 6B 
650 DATA CD, 2B, 46, 3E, IA, D3, 98, E3, E3, 3E, 17, D3, 98 , E3, E3, 10 
660 DATA F8.3E, 1B.D3, 98, El . Dl , D5, E5, 7B. 95, 3D, 47, 7A, 94. 3D 
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670 DATA 4F , 2C, CD, 2B, 46, 3E, 16, D3, 98, C5, 41, 3E, 20, D3, 98, E3 
680 DATA E3 , 10 , F0 , 3E, 16, D3, 98, 2C, Cl , 10, E7, El ,01,01, C9, 00 
690 DATA 00,00,00,00,00,00,00,00,00,00,00.21,83,43,06,06 
700 DATA CD, 55, 40, 2B, DD, 21, 66, 46, CD, B3, 40, FE, 2C, C2, 20, 40 
710 DATA DD, 21 , 66,46, CD, B3, 40, CA, 20,40, DD, 21, A4 , 5E, CD, B3 
720 DATA 40, ED, 53, 14, 47, 3A. 63, F6, FE, 02, C2, 89, 40,22, 12, 47 
730 DATA DD, 21, 9B, 41, FD, 21, 83, 45, FD, 7E, 02, FD, BZ. 00, DA, 81 
740 DATA 40, FD, 7E, 03, FD, BE, 01 , DA, 81, 40, CD, D2, 45, 3A, 0F, 47 
750 DATA 3D, FD, BE, 00, DA, 81, 40, FD, BE, 02, DA, 81, 40, 3E, 18, FD 
760 DATA BE, 01 , DA, 81, 40, FD, BE, 03, DA, 81 , 40, FD, 66, 00, FD, 6E 
770 DATA 01 , FD, 56, 02, FD, 5E. 03 , FD, 7Z, 04, DD, 77, 02 , 3E, 01 , DD 
780 DATA 77, 03, 22, 18, 47 , AF , 32,16, 47, 32, OD, 47, 7C, BA, CA, D3 
790 DATA 44. 7D. BB,C2, 20, 40, 3A, 87, 45.5F, 3A, 88, 45, 83, 5F, 3A 
800 DATA 83, 45, 4F, 3A, 85, 45, 06, 00, 93, 38, 04, 04, B9, 20, F9, 78 
810 DATA 32 , 17, 47 , DD. 21 , 9B, 41 , 2A, 18, 47, 7C, DD, 77 , 00, 7D, DD 
820 DATA 77, 01, CD, CC, 40. CD, 89. 45, Fl, 03, CA, 67, 44, FE, 07, CA 
830 DATA 9B, 44. FX, FF , CA, 70, 45, 18, DA, 3A, 88, 45, 5F, 3A, 19, 47 
840 DATA 83, 5F. 3A, 87, 45, 83, 5F, 3A, 85,45, BB, 38, OE. 7B, 32,19 
850 DATA 47, 3A, 16. 47, 3C, 32, 16, 47, C3, 41,44,3A. 83. 45,67, 3A 
860 DATA 84,45, 6F, 22, 18,47, AF. 32, 16,47, C3, 41, 44 , 3A, 88, 45 
870 DATA 5F.3A, 19,47, 4F.3A. 83.45. B9, 28, 16, 79,93, 5F,3A, 87 
880 DATA 45, 4F, 7B, 91, 32, 19, 47, 3A, 16, 47, 3D, 32,16,47,03,41 
890 DATA 44. 3A, 85, 45, 67, 3A, 86. 45. 6F, 22, 18. 47, 3A, 17, 47, 32 
900 DATA 16.47,C3.41,44,3A, 88,45, 5F.3A, 84,45, 4F, 3A, 86, 45 
910 DATA 06, 00, 93, 04, B9, 20. FB, 78, 32, 17, 47, DD, 21, 9B, 41, 2A 
920 DATA 18, 47, 7C. DD. 77, 00, 7D, DD, 77, 01, CD, CC, 40, CD, 89, 45 
930 DATA FE, 05, CA, 10, 45. FE, 01, CA, 40,45, FZ.rr, CA, 70,45, C3 
940 DATA £9,44, 3A, 88, 45, 5F , 3A, 18,47,83, 5F, 3A, 86,45, BB, DA 
950 DATA 2Z, 45, 7B, 32, 18,47, 3A, 16, 47, 3C, 32, 16, 47, C3, £9, 44 
960- DATA 3A, 83, 45, 67, 3A, 84, 45, 6F, 22, 18, 47, AF, 32, 16, 47, C3 
970 DATA £9, 44, 3A, 88, 45, 5F, 3A, 84, 45, 4F, 3A, 18,47,B9,28,0E 
980 DATA 93, 32, 18, 47, 3A, 16. 47, 3D, 32,16, 47, C3, E9, 44, 3A, 85 
990 DATA 45, 67, 3A, 86, 45, 6F, 22, 18, 47, 3A, 17, 47, 32, 16, 47, C3 
1000 DATA E9, 44, 2A, 14, 47, 3A, 16, 47, 77, 23, 36. 00, CD, 56,01, 2A 
1010 DATA 12,47,C3, 98, 40,00, 00,00, 00,00, 00, DD, E5 , FD, £5, C5 
1020 DATA D5, E5, 3E, 00, CD, D5, 00,87,20,28, 3E, 01, CD, D5, 00, B7 
1030 DATA 20, 20, 3E, 02, CD, D5, 00 , B7, 20, 18, 3E. 00, CD, D8, 00, B7 
1040 DATA 20, 10, 3E, 01 , CD, D8, 00, B7, 20, 08, 3E, 02, CD, D8, 00, B7 
1050 DATA 28 , DO, F5, 21 , 00, 80, 2B, 7C, B5, 20, FB, Fl, El , Dl, Cl, FD 
1060 DATA El , DD, El , C9, 08, D9, 2A, B7, F3, 3A, 2D, 00, B7, 28, OC, 3A 
1070 DATA B0.F3, FE, 29, 38, 05, 3E, 50, 29, 18, 02, 3E, 28, 32, OF, 47 
1080 DATA 22,10, 47, D9, 08, C9, F5 , C5, D5, E5, CD, OC, 46, CD, 85, 46 
1090 DATA DD, 46, 00, 21, C8, 46, CD, B7, 46, El, Dl , Cl, Fl , C9, 26, 00 
1100 DATA 54, 3A, B9,FC, 6F ,B7, 28, 09, 6C, 47, 3A, OF, 47, 5F, 19, 10 
1110 DATA FD, 3A, B7 , FC. 5F, 19, 22 , C6, 46, 22, EA, 46, C9, F5, C5, D5 
1120 DATA E5,EB, 21, 00, 00. 7B.B7.28, 0C,D5, 47,3A, 0F.47,5F. 16 
1130 DATA 00,19, 10, FD, Dl, 7A, B7, 28, 04, 5F, 16, 00, 19, CD, 9D, 46 
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1140 DATA El, Dl, Cl, Fl, C9, 52, 45,56, 45, 52, 53, 45, 00, B7, 40, 43 
1150 DATA 4C, 52, 53, 43, 52, 00, 9F, 41, 57, 49, 4E, 44. 4F. 57, 00, 5E 
1160 DATA 42, 4D, 45, 4E, 55, 00, 88, 43, 00. CD, 85, 46, DB, 90, C9, T5 
1170 DATA CD, 9D, 46, Fl, D3, 98, C9 , 3A, 2D, 00, B7 , 29, 07 , AT , D3, 99 
1180 DATA 3E. 8E, D3, 99, 7D, D3, 99,70, E6, 3F , D3 ,99, E3 , E3, C9, 3A 
1190 DATA 2D, 00, B7 , 28, 07 , AF, D3, 99, 3E, 8E, D3, 99, 7D, D3. 99, 7C 
1200 DATA E6, 3F, F6, 40, D3 ,99, E3, E3, C9, DB, 98, 77, 23, 10, FA, C9 
1210 DATA 7E, D3, 98. 23, 10, FA, C9. 00, 00, 00, 00, 00, 00, 00, 00, 00 
1220 DATA 00,00.00.00,00,00,00,00,00,00,00,00,00,00,00.00 
1230 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
1240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
1250 DATA 00,00,00,00,00.00,00,00.00,00,00,00,00,00,00,00 
1260 DATA 00,00,00,00.00,00,00,00,00,00,00,00,00,00,00,00 
1270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
1280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
1290 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00.00,00 
1300 DATA 00,00,00,00,00,00,00,00,00,00.00,00,00,00,00,00 
1310 DATA 00,00,00,00,00,00.00,00,00.00.00,00,00,60,69 


Llstagom do programa da tasta: 


1000 CLS:KEYOFF 

1010 REM 444 CARREGA OS PROGRAMAS NECESSÁRIOS 444 
1020 BLOAD"PROG25.BIN-.R 
1030 BLOAD-PROG6.BIN* 

1040 BLOAD’PROG7.BIN* 

1 050 DEFUSRO-&HDOOO:DEFUSR1 -&HD200:RESTORE 1 700 
1060 REM 444 CONSTRÓI O MENU PRINCIPAL 444 
1070 FOR A%«1 TO 4 
1080 READ A$(A%) 

1090 NEXT A% 

1100 FOR A%-1 TO 4 
1 1 10 LOCATE (A%-1) 4 7+1,0:PRINT A$(A%) 

1120 NEXT A% 

1130 REM 444 TEXTO EXPLICATIVO 444 

1140 S$(1 )-"SELECK)NE A OPÇÃO DESEJADA 4 

1150 S$(2)-"USANDO AS TECLAS DO CURSOR 4 

1 160 IF (PEEK(&HF3B0))>40 THEN CT%-80 ELSE CT%-40 

1170X1-(CT%.LEN(S$(1))V2-1:X2-XULEN(SS(1)K1:YU8:Y2-12 

1 1 80 WINDOW XI ,Y1 ,X2,Y2,0 

1 1 90 LOCATE XI +1 ,Y1 +1 :PRINT S$(1 ) 

1 200 LOCATE XI +1 ,Y1 +3:PRINT S$(2) 

1210 REM 444 LOOP DE LEITURA DO MENU PRINCIPAL 
1220 MENU 1 ,0,22,0,4,3,A% 

1230 REVERSE ,.0.1 :REM 444 APAGA A OPÇÃO 444 
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1240 ON A%+1 GOSUB 1280,1400,1520,1630 
1250 Z%-USR1 (0):REM — RECUPERA A TELA *** 
1260 GOTO 1220 

1270 REM — MENU DA PRIMEIRA OPÇÃO •" 

1280 RESTORE 1710:CP%-0 
1290 FOR B%-1 TO 6 
1300 READ B$(B%) 

1310 IF LEN(B$(B%))>CP% THEN CP%-LEN(B$(B%)) 
1320 NEXT B% 

1 330 GOSUB 1 650:REM — DESENHA A JANELA 4,4 

1340 FOR B%«1 TO 6 

1350 LOCATE XU1,YUB%:PRINT B$(B%) 

1360 NEXT B% 

1370 MENU XU1,YU1,XU1,Y2-1.CP%.1,B% 

1380 RETURN 

1390 REM 444 MENU DA SEGUNDA OPÇÃO "* 

1400 RESTORE 1730:CP%-0 
1410 FOR B%-1 TO 4 
1420 READ B$(B%) 

1430 IF LEN(B$(B%))>CP% THEN CP%-LEN(B$(B%)) 
1440 NEXT B% 

1450 GOSUB 1650:REM 444 DESENHA A JANELA 444 

1460 FOR B%-1 TO 4 

1470 LOCATE X1+1,Y1+B%:PRINT B${B%) 

1480 NEXT B% 

1490 MENU XH1,YU1,XH1,Y2-1.CP%,1.B% 

1500 RETURN 

1510 REM MENU DA TERCEIRA OPÇÃO ••• 

1520 RESTORE 1750:CP%«0 
1530 FOR B%-1 TO 4 
1540 READ B$(B%) 

1550 IF LEN(B$(B%))>CP% THEN CP%-LEN(B$(B%)) 
1560 NEXT B% 

1 570 GOSUB 1 650:REM — DESENHA A JANELA — 

1580 FOR B%-1 TO 4 

1590 LOCATE XU1 ,YUB%:PRINT B$(B%) 

1600 NEXT B% 

1610 MENU XH1.YH1.XU1,Y2-1,CP%,1,B% 

1620 RETURN 
1630 END 

1640 REM — ROTINA PARA DESENHAR A JANELA — 
1 650 XI -A%*7:X2-X WCP%+2:Y1 -1 :Y2-Y1 +B% 

1 660 Z%-USR0(0):REM salva a tela atual 
1 670 WINDOW XI ,Y1 ,X2, Y2.0 
1680 RETURN 

1690 REM **• DADOS USADOS NOS MENUS ”* 

1 700 DATA "FILEVEDITYCOMPYEXir 
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1710 DATA "Copy",’V»ôw","Delete" 
1720 DATA "RenameYPrintYSave" 
1730 DATA “InsertYDelete" 

1740 DATA "Undo",*Copy" 

1 750 DATA “To memory“,"To disk“ 
1760 DATA “Make .EXEYMake ,COM“ 


Antas da passar às anàlisos das listagens acima, gostaria da obsarvar qua a rotina do co- 
mando REVERSE sofreu algumas modificações para se adaptar ao comando MENU, portan- 
to, fique atento a esta nova listagem. 

Ao executar o programa de testa, vocô terá um pequeno exemplo (tenho certeza que você 
será bem mais criativo) de como e quando usar o comando MENU. Observe que. para tornar 
o efeito visual muito mais interessante, usei o comando WINDOW em conjunto com as rotinas 
do Capitulo 1 que salvam e recuperam uma tela de texto. O resultado é bom interessante, não? 
Existem, porém, algumas restrições no uso do comando MENU; são elas; 


1 .Não deve existir nenhum campo invertido no momento da execução do comando MENU. Pa- 
ra se certificar que tal condição está satisfeita, utilize o comando 

REVERSE M 0,1 

antes do comando MENU. 

2.Quando o menu estiver na horizontal, vocô deverá ter muito cuidado em fornecer ao coman- 
do MENU opções com espaçamentos fixos entre si. ou seja, o deslocamento entre uma opção 
e outra deve ser sempre o mesmo. Caso contrário, o sistema produzirá um erro de chamada 
ilegal. 

ã.Certifique-se que duas coordenadas (xl e x2. se o movimento for na vertical, ou yl e y2, se 
o movimento for na horizontal) sejam iguais, pois a rotina detecta a direção do movimento ba- 
seada nessa igualdade. Caso contrário, o sistema produzirá uma mensagem de erro de sin- 
taxe. 

Fora as observações acima, bastará acompanhar os comentários na listagem do código- 
fonte para entender o funcionamento de cada uma das rotinas apresentadas. Como vocô pode 
perceber, existem muitos comandos que poderão ser implementados usando-se o método do 
desvio do vetor de erro. Acredito que, uma vez com as ferramentas fornecidas neste capítulo 
e no Capítulo 2, você será capaz de implementar os comandos que achar mais convenientes. 

Com as listagens acima, encerramos o Capítulo 3 e passamos à aplicação prática de um 
assunto que não abordei nos meus livros anteriores, mas que. mesmo assim, recebi diversas 
carias trazendo dúvidas a respeito. No Capitulo 4. vamos explorar o funcionamento da ins- 
trução CALL do BASIC. 
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Capítulo 4 


A INSTRUÇÃO CALL 


Para entender como funciona a instrução CALL do BASIC, precisamos do alguns conhe- 
cimentos de base, entre eles o funcionamento do sistema de cartuchos no MSX. 

Embora a Microsoft tenha divulgado no exterior um catálogo com todas as informações so- 
bre o sistema MSX (inclusive de hardware), nunca vi nenhum lançamento nacional com tais 
informações. Já que você não tem acesso a essa biblioteca, vou apresentar um panorama ge- 
ral sobre como o MSX interpreta o sistema de cartuchos. 


A INICIALIZAÇÃO DO MSX 

Quando você liga o MSX, ativa uma série de rotinas complexas que t8m como função ini- 
cializá-lo, tornando-o pronto para o uso. O que fazem exatamente essas rotinas? Em primei- 
ro lugar, o MSX faz uma inicialização de todos os periféricos "internos', ou seja, inicializa o 
vídeo, o processador de sons e parte do ppi (o chip que controla o teclado, o motor do grava- 
dor cassete, a paginação da memória, etc). Logo depois, sai em busca de um bloco contínuo 
de 16Kb de memória RAM que se estenda do endereço #8000 a #BFFF. O curioso ó que es- 
sa busca se realiza de cima para baixo, ou seja. do endereço #BFFF ao #8000. Achado o blo- 
co de memória RAM de #8000 a #BFFF (página 2). o MSX inicia a busca de um bloco da 
memória RAM que se estenda do endereço fCOOO a #FFFF (página 3). Achados os blocos, o 
MSX parte para a busca de um bloco de 32Kb contínuos que se estenda do endereço #8000 
a #FFFF. Terminada esta etapa, ó feito um testo para habilitar o bloco de 32Kb de memória 
RAM que se encontre no Slot mais próximo ao Slot 0. Após este passo, o MSX termina a ini- 
cialização definitiva do ppi e passa para a inicialização das variáveis do sistema. Em seguida 
à inicialização das variáveis do sistema, o MSX inicia a procura de cartuchos de expansão (jo- 
gos. interface de drive, programas extensivos em ROM, etc.) e, se for o caso (somente cartu- 
chos de jogos), desvia a execução para um deles. 


O SISTEMA DE CARTUCHOS 

Já sabemos que após a habilitação dos 32Kb contínuos de memória RAM (páginas 2 e 3) 
e a inicialização da área das variáveis do sistema, o MSX inicia a busca de cartuchos de ex- 
pansão. Mas, oomo isso ó feito? Acontece que os cartuchos de expansão só podem ocupar a 
página 1 ou 2, ou seja, a partir do endereço #4000 (jogos, manipuladores de comandos e ma- 
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nipuladores d© dispositivos) ou a partir do endereço #8000 (cartuchos com programas em BA- 
SIC). Assim sendo, o que o MSX tem de verificar são os dois primeiros bytes do endereço 
#4000 e #8000 de todos os slots e subslots (no caso de slots expandidos). Se esses bytes fo- 
rem iguais a #41 e #42, respeclivamente, o MSX reconhece que ali existe um cartucho de ex- 
pansão. Curioso salientar que este também é o método usado pelo IBM-PC no 
reconhecimento de extensões da ROM, só que os bytes de identificação mudam de #41 e 
#42 para #55 e #AA. Após este reconhecimento, o MSX parte para uma outra verificação, pa- 
ra podor se ajustar ao tipo do cartucho. Fundamentalmente, existem quatro tipos de cartucho, 
quais sejam: 

1. Cartuchos com jogos; 

2. Cartuchos com manipuladores de comandos ativados por intermédio da instrução CALL do 
BASIC; 

3. Cartuchos com manipuladores de dispositivos, como a RS232, ativados por intermédio do 
comando OPEN e associados (CLOSE, etc.) do BASIC, e; 

4. Cartuchos com programas em BASIC. 

Os três primeiros tipos ocupam os 1 6Kb da página 1 (#4000 a #7FFF) do Slot ou subslot 
onde estão localizados; jà o quarto tipo ocupa os 16Kb da página 2 (#8000 a #BFFF) do slot 
onde está localizado. Um exemplo do último tipo é o cartucho de demonstração que acompa- 
nha o modelo Expert. *Mas, Eduardo, como é que 0 MSX reconhece cada um dos tipos de car- 
tucho?" Para entender o reconhecimento, veja a Figura 4.1 abaixo. 



INlCIO ♦ #0000 

IDENTIFICAÇÃO- #4142 

ff 

♦ #0002 

INIT - Endereço inicial de 

execução do jogo í ' ■ • 

('ML 

•••#0004 

STATEMENT - Endereço inicial de 

execução de um manipu- 
lador de comandos 

14 ku 

♦ #0006 

DEVICE - Endereço inicial de 

execução de um manipu- 
lador de dispositivos 

Ô; ' 

♦ #0008 

TEXT . Endereço inicial do 

programa em BASIC 


+ #000A 

RESERVADO PARA EXPANSÕES FUTURAS 


♦ #0010 

INlCIO DOS PROGRAMAS 

Onda INlCIO poda sar Igual a 04000 ou a 08000, dapandando do tipo do cartucho 


Figura 4. 1: Tabela dos parâmetros dos cartuchos 
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Dessa forma, se. por exemplo, o MSX encontrar na página 1 (#4000 a #7FFF) do Slot ou subs- 
lot que estiver examinando a seguinte seqüéncia de bytes: 

41 42 10 40 00 00 00 00 00 00 

saberá que ali se encontra um cartucho de jogo para o qual deverá ser transferida imediata- 
mente a execução. Note que, nosto oxomplo.a execução seria transferida para o endereço 
#4010. Por outro lado, se o MSX encontrar uma sequência do tipo 

41 42 00 00 08 40 00 00 00 00 

saberá que nesse slot/subsbt, em particular, existe um manipulador de comandos ativado por 
intermédio da instrução CALL do BASIC. Neste caso, a execução não ó transferida para o en- 
dereço #4008, como mostra o exemplo acima. Ao invós d isso, o MSX inicializa as variáveis do 
sistema que indicarão ao BASIC que nesse slot/subslot existe um manipulador de comandos 
a ser ativado pela instrução CALL Já se o MSX enoontrar a seguinte seqüéncia de bytes: 

41 42 00 00 00 00 10 40 00 00 

saberá que na página 1 do slot/subslot que está sendo analisado encontra-se um manipula- 
dor de dispositivos (como uma RS232, por exemplo) a ser ativado pelas instruções do BASIC. 
Neste caso, a execução também não ó transferida para o endereço #4010, como mostra a 
seqüéncia de bytes acima. O que ocorre, na realidade, é uma inicialização das variáveis do 
sistema, que por sua vez informarão ao BASIC que nesse slot/subslot existe um manipulador 
de dispositivos. Por último, se o MSX oncontrar uma seqüéncia do tipo 

41 42 00 00 00 00 00 00 10 80 

saberá que na página 2 (#8000 a #BFFF) existe um programa em BASIC com inicio a partir 
do endereço #8010. Neste caso, o MSX promove um desvio das variáveis do sistema relacio- 
nadas às tabelas usadas pelos programas em BASIC (inicio do texto do programa, inicio da 
área de variáveis, etc.) e desvia a execução para o comando RUN na BIOS do BASIC, o que 
por sua vez resultará na execução do programa BASIC gravado no cartucho. Observe que a 
presença do endereço #0000 em INIT, STATEMENT, DEVICE ou TEXT indica a ausência de 
tal tipo de cartucho no slot/subslot em questão. Observe também que podemos ter dois tipos 
de cartucho num mesmo slot/subslot. Veja, por exemplo, a seqüéncia 

41 42 1 0 40 40 40 00 00 00 00 

Ela indica que existe uma rotina a ser ativada imediatamente no endereço #4010 (talvez 
para promover alguma inicialização) e, ao mesmo tempo, existe um manipulador de coman- 
dos a partir do endereço #4040. Neste caso, a rotina que se micia em #4010 deverá terminar 
com uma instrução RET (em assembly) para permitir uma volta à inicialização do MSX. de mo- 
do que este possa descobrir que nesse slot/subslot também existe um manipulador de coman- 
dos. 

Para nós, só interessa estudar o manipulador do comandos (STATEMENT). Vejamos os 
motivos: 

I.Os cartuchos para jogos (INIT) só têm sentido se você for programar jogos para serem trtili- 
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zados em cartuchos. Ora. isto implica ter acesso a um gravador de EPROMs, que vem a ser 
um equipamento que pouquíssimos usuários possuem. 

2.0s cartuchos para manipuladores de dispositivos (DEVICE) só tem sentido se tivermos 
conectado ao nosso MSX algum tipo de periférico, como a RS232, por exemplo. Este também 
não ó o caso da esmagadora maioria dos usuários do MSX. 

3,Os cartuchos com programas em BASICtambém sótèm sentido para programas de demons- 
tração ou aplicativos em BASIC programados para serem comorcializados em cartuchos. Mais 
uma vez. surge a necessidade de se possuir um gravador de EPROMs. 


O MANIPULADOR DE COMANDOS (STATEMENT) 

Quando o interpretador BASIC encontra uma sentença do tipo 

CALL <Nomo do Comando [ <Llsta do argumentos> ) 

transfere para a variável do sistema PROCNM o Nomo do Comando e promove uma consul- 
ta à tabela contida na vanável do sistema SLTATR para encontrar os slots/subslots que pos- 
suam um manipulador de comandos. Logo após, o sistema promove um desvio para as rotinas 
em cada um desses slots/subslots até que uma delas reconheça o Noma do Comando e 
passe a executar as instruçóes pertinentes. 

Antes, porém, para podermos usar o manipulador de comandos, precisamos seguir algu- 
mas regras: 

1.0 par de registros HL deve ser preservado, já que é o apontador usado pelo interpretador 
BASIC. Como vimos no Capítulo 2, o interpretador BASIC varro o programa em BASIC usan- 
do o par HL. 

2. Por sor um manipulador de comandos, a rotina e os bytes de identificação (#41, #42, etc.) 
devem se localizar na página 1 (do endereço #4000 ao #7FFF) de qualquer slot/subslot. 

3. Respeitar a sintaxe do chamada vista no início deste tópico. 


4 .Ao ser ativada, a rotina do manipulador de comandos deve, primeiramente, compararo nome 
passado pelo interpretador BASIC com o nome da própria rotina. O nome passado pelo inter- 
pretador BASIC é colocado em PROCNM e apresenta um comprimento de, no máximo, 1 5 ca- 
racteres. O fim do nome é assinalado com o caractere NUL (#00) 

5.Se o nome da rotina náo coincidir com 0 nome colocado em PROCNM, a rotina deverá vol- 
tar ao BASIC recuperando o par HL salvo em 1 e setando a flag de carry para indicar que o 
nome náo coinddiu. Se todos os manipuladores analisados retornarem com a flag do carry se- 
tada, 0 interpretador BASIC emitirá um erro de sintaxe. 
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6.Se o teste de comparação resultar em verdadeiro, a rotina deverá ser executada e, no final, 
retornar recuperando o par de registros HL salvo em 1 e resetando a flag de carry (a instrução 
XOR A em assembly realiza tal funçào), para que o sistema não emita uma mensagem de er- 
ro de sintaxe. 

Como consolo, resta saber que todos os registros podem ser alterados, com exceção do 
ponteiro HL e do ponteiro SP da pilha, ou seja. todos os PUSHs que fizermos deverão ser cor- 
respondidos por um número igual de POPs. 

A partir de agora, já temos quase todas as informações necessárias para poder implemen- 
tar o nosso comando RENEW a sor ativado através da instrução CALL do BASIC, o que tem 
como função recuperar programas em BASIC apagados acidentalmente. 

Antes, poróm, precisamos entendor o gerenciamento de algumas variáveis do sistoma re- 
lacionadas com o sistema de cartucho. 


VARIÁVEIS DO SISTEMA E O SISTEMA DE CARTUCHOS 

Apesar do existirem diversas variáveis do sistema para o gerenciamento do mecanismo 
dos slots. vamos nos preocupar apenas com aquelas quo dizem respeito ao manipulador de 
comandos (STATEMENT). Como você já sabe. durante a inicialização (alguns preferem o ter- 
mo RESET) do MSX, ó feita uma busca do cartuchos de expansão para poder inicializar as 
variáveis do sistema correspondentes. Temos, então, duas alternativas para implementar o 
nosso comando RENEW a ser ativado pela instrução CALL do BASIC: 

1. Deslocar a nossa rotina do endereço de carregamento na RAM do BASIC para a página 1 
do slot quo contenha os 64Kb de RAM e provocar um reset através da instrução JUMP #0000 
em assembly. No nosso caso, isso significaria deslocar a rotina do endereço #D000 para o en- 
dereço #4000 (habilitando antes a página 1 da RAM. é claro) o. logo em seguida, provocar um 
reset usando a instrução JUMP #0000, para que na nova inicialização o sistema reconhecesse 
o nosso comando. Mas, eu acho que esta não ó uma alternativa elegante. Suponha que o 
usuário tenha apagado acidentalmente algum programa em BASIC o dosojo rocuporá-k). Se 
a instalação do nosso comando provocar um reset. muito provavelmente tal programa jamais 
será recuperado. 

2. Deslocar a nossa rotina do endereço de carrogamento na RAM do BASIC para a página 1 
do slot que contenha os 64Kb de RAM e promover a mesma inicialização das variáveis do sis- 
tema que seria feita pelo reset do sistema. Francamente, acho este método muito mais simpáti- 
co que o primeiro. 

Vamos, então, passar ao estudo das variáveis do sistema envolvidas na utilização do ma- 
nipulador de comandos. As variáveis envolvidas são: 

SLTATR quo se inicia no endereço #FCC9 e ocupa 64 bytes. Esta variável contém um mapa 
completo de todos os cartuchos de expansão em todos os slots e subsiots. Como podemos 
ter até 1 6 slots (4 subsiots por cada um dos 4 slots principais) e como cada Slot possui 4 pági- 
nas de 1 6Kb (cada slot só pode ter 64Kb de memória - limitação imposta pelo processador de 
8 bits), chegamos aos 16*4-64 bytes ocupados por esta tabela. 
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PROCNM que se inicia no endereço #FD89 e ocupa 1 6 bytes, sendo 1 5 bytes para o armaze- 
namento temporário do nome do comando ativado pela instrução CALL e 1 byte sempre igual 
a #00 para indicar o término do nome. 


Das duas variáveis acima, a mais complexa é a SLTATR. Vejamos a sua estrutura: 


FCC9H SLTATR; 

DEFS 

4 

SP0.SS0 

FCCDH 

DEFS 

4 

SP0.SS1 

FCD1H 

DEFS 

4 

SP0.SS2 

FCD5H 

DEFS 

4 

SP0.SS3 

FCD9H 

DEFS 

4 

SP1.SS0 

FCDDH 

DEFS 

4 

SP1.SS1 

FCE1M 

DEFS 

4 

FS1.SS2 

FCE5H 

DEFS 

4 

SP1.SS3 

FCE9H 

DEFS 

4 

SP2.SS0 

FCEDH 

DEFS 

4 

SP2.SS1 

FCF1H 

DEFS 

4 

SP2.SS2 

FCF5H 

DEFS 

4 

SP2.SS3 

FCF9H 

DEFS 

4 

SP3.SS0 

FCFDH 

DEFS 

4 

SP3.SS1 

FD01H 

DEFS 

4 

SP3.SS2 

FD05H 

DEFS 

4 

SP3.SS3 

Onde SP é a abreviação para Slot Principal e SS éa abreviação para 
Slot Secundário 


Tabela 4. 1: A variável do sistema SLTATR 


"Mas, o que os endereços acima significam?' Bem. não 6 nada complicado. Vejamos um 
exemplo: suponha que o seu micro seja um Experl 1 .0 e que. portanto, apresenta os 64Kb de 
RAM no slot 2. Agora, vamos também supor que desejemos colocar o nosso manipulador de 
comandos na página 1 do Slot principal. Consultando a Tabela 4. 1 , chegamos à conlusáo de 
que o endereço inicial do Slot 2 (SP2) é #FCE9, mas. como queremos modificar a página 1, 
devemos apontar para o endereço seguinte, ou seja, para o endereço #FCEA Note quo, na 
ausência de slots expandidos, a abreviação SSO se aplica ao slot principal. Assim sendo, fica 
claro que o mnemónico DEFS 4 reserva na verdade 4 bytes, sendo um para cada uma das 
quatro páginas (0 a 3) possíveis Mas, o que devemos colocar nessas posiçóes de memória 
para informar ao sistema que numa detorminada página de um determinado slot/subslot existe 
um manipulador de comandos? Para isto, dovemos seguir a seguinte codificação em bits co- 
locada em cada um dos 64 bytes da tabela SLTATR: 
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BIT 


SIGNIFICADO 


7 

6 

5 

4 

3 

2 

1 

0 


Programa em BASIC 

Manipulador de dispositivos 

Manipulador de comandos 

Não usado 

Não usado 

Náo usado 

Não usado 

Não usado 


Como já sabemos, só tem sentido setar (colocar em 1 ) o bit 7 na página 2 (#8000 a #BFFF) 
do slol/subslot em questão, da mesma forma que só tem sentido setar os bits 6 e 5 na página 
1 (#4000 a #7FFF) do slot/subslot em questão Desta forma, fica claro que os valores cor- 
respondentes às páginas 0 e 3 da tabela serão sempre iguais a zero (sem nenhum bit sela- 
do). Terminada a teoria, vamos à aplicação prática destes princípios: a implomontação do co- 
mando RENEW. 


O COMANDO RENEW 

Como já afirmei, este comando será implementado para ser atrvado por intermédio da ins- 
trução CALL do BASIC. A sua função é recuperar programas em BASIC apagados acidental- 
mente. Antes, porém, vamos a uma pequena explicação do algoritmo usado para tal 
recuperação. Vocô dove estar lombrado que. no Capítulo 2. vimos que o armazenamento de 
uma linha em BASIC é feita da seguinte forma: 


INiCIO + #0000 Endereço da próxima linha 
a - #0002 Número da linha 
+ #0004 Primeiro comando da linha 


Fim da linha marcado pelo byte #00 


Ao entrarmos com o comando NEW, o sistema simplesmente reinicializa três ponteiros que 
se situam na área das variáveis do sistema, e preenche com zeros os primeiros 2 bytes da pri- 
meira linha, ou seja, perdemos o indicativo do endereço inicial da segunda linha. Assim sen- 
do, o que temos a fazer ó procurar o endereço do fim da pnmeira linha (indicado pelo byte #00), 
incrementar o endereço encontrado para que ele aponte para o início da segunda linha e, por 
fim, colocar tal endereço nos dois primeiros bytes da pnmeira linha. Feito isto, precisamos ini- 
cializar os três ponteiros na área das variáveis do sistema. A função desses ponteiros é indi- 
car o início da área destinada às variáveis do programa BASIC; são eles: 
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VARTAB que so inicia no endereço #F6C2 a que tem como função apontar para o primeiro 
byte da área de armazenamento de variáveis. 

ARYTAB que se inicia no endereço #F6C4 e que tem como funçáo apontar para o primeiro 
byte da área de armazenamento de arrays. 

STREND que se inicia no endereço #F6C6 e que tem como funçáo apontar para o primeiro 
byte após a área de armazenamento do arrays. 


"Mas, quais são os valores a serem colocados em cada um desses ponteiros?" Simples. 
Todos eles sáo gerenciados pelo interpretador BASIC à medida que o programa em BASIC 
vai sendo executado. Sendo assim, basta fazer com que todos esses ponteiros apontem para 
o fim do programa em BASIC e, depois, o comando RUN se encarregará de inidalizá-los com 
os valores apropriados. Ficamos, então, na dependôncla de achar o final do programa em BA- 
SIC. nâo é? Você vai ver que ó muito simples achar tal endereço. No Capitulo 2, vimos que 
um programa em BASIC termina com uma seqüência do trôs bytes iguais a #00. sendo que o 
primeiro byte corresponde ao fim da última linha e os dois bytes seguintes ao inicio da linha 
seguinte, quo náo existe. O que eu sugiro ó que obtenhamos no inicio de cada linha o endereço 
da linha seguinte, para verificarmos se o conteúdo desse endoreço ó igual a #0000 (ó claro 
que estaremos analisando também o conteúdo do endereço seguinte, pois #0000 ó uma quan- 
tidade de 16 bits). Se esta comparação for verdadeira, achamos o fim do programa em BA- 
SIC; caso contrário, tomamos o conteúdo do endereço analisado, que nada mais ó do que o 
endereço para a linha seguinte, e repetimos a comparação ató encontrar o valor #0000. Co- 
mo você pode comprovar, náo existe qualquer mistério. Vamos, então, ás listagens do progra- 
ma que implementa o comando RENEW. 


Listagem em assembly Z-80 do código-fonte do programa que implementa o comando 
RENEW; 

programa que implementa o comando RENEW 
; Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

;GEN80 PROG26.BIN-PROG26.GEN 

« 

;onde PROG26.GEN é o nome do arquivo-texto com esta 
;listagem 


txttab 

equ 

#f676 

vartab 

equ 

#f6c2 

arytab 

equ 

#f6c4 

strend 

equ 

#f6c6 

sltatr 

equ 

#ícc9 

procnm 

equ 

#fd89 
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defb 

#fe 

;simula om CP/M 

defw 

inicio 

;o cabecalho de 

dtífw 

íim-renew+rotina+#01 



;um arquivo 

defw 

inicio 

;.BIN 



org 

#d000 


inicio 

di 


;dosabilita as interrupções 


in 

a,(#a8) 

;lé a atual configuração dos 


ld 

b,a 

;slots e prepara para ativar 


and 

#f0 

;a página 1 do slot da RAM 


rrca 




rrca 




rrca 




rrca 




or 

b 



out 

(#a8),a 

;ativa as páginas 0,1,2 e 3 


and 

#03 

;em RAM e descobre o slot 
;onde se encontram os 64Kb 
;de RAM 


ld 

hl.sltatr 

;hl aponta para sltatr 


ld 

da, 16 

jdeaincrementa 


or 

a 

.Slot 0? 


ir 

z.inicioj 

.Sim, vai para inicio 1 


ld 

b.a 

.Náo. calcula endereço 

inicio 0 

add 

hl, de 

;da área de dados do 


djnz 

inicio_ 0 

;slot em questão 

inicÍo_1 

xor 

a 

;zera o acumulador 


set 

5, a 

;indica manipulador 
;do comando (CALL) 


inc 

hl 

;hl aponta para a área 
;de dados da página 1 
;do slot em questão 


ld 

(hl), a 

;indica ao sistema que 
;a página 1 do slot da 
;RAM contém uma rotina 
;a ser ativada |tor CALL 


ld 

hl.rotina 

itransfere a rotina para a 


ld 

de.renew 

página 1 da RAM 


ld 

bc,fim-renew+#Ol 



kfir 




in 

a,(#a8) 

;lè a configuração atual 


and 

%1 11 10000 

;ativa os 32Kb de ROM 


out 

(#a8),a 

;habilrta a config. original 
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ei 

ret 


;habilrta as interrupções 
;retorna ao BASIC 


rotina 


renew 


inirenew 


renew 0 


voltaronew 


renew 1 


renew 10 


org 

#4000 


defb 

#41 .#42 

;indicativo de expansão 

deíw 

#0000 

;não é jogo 

defw 

inirenew 

;end. de entrada do 
;manipulador de comandos 

defs 

10 

:zera os 10 bytes restantes 

ld 

(ptrbasic),hl 

;salva o ptr. do BASIC 

ld 

hl.procnm 

;hl aponta para procnm 

ld 

de, comando 

;de para o nome do comando 

ld 

a.(de) 

;loop para comparação 
;dos nomes 

or 

a 

,1im do nome? 

jr 

z. renew 1 

;Sim, ativa a rotina 

cp 

(hl) 

;Não. continua a comparação 

ir 

nz.voftarenew 

;Falhou. Volta com erro 

inc 

hl 

;Não talhou. Continua a 

inc 

de 

;comparação 

jr 

renew_0 

V 

ld 

hl.(ptrbasic) 

;recupera o ptr. do BASIC 

s d 


;seta a flag de carry 
.para indicar erro 

ret 


;volta ao BASIC 


ld 

hl.(txttab) 

;hl aponta para o início 
;do programa em BASIC 

inc 

hl 

f 

inc 

hl 

> 

inc 

hl 


inc 

hl 

1 

ld 

a.(hl) 

;loop para procurar o 

or 

a 

linal da primeira linha 

jr 

z.renewl 1 

:Encontrou? Vai para 
;renow_1 1 

inc 

hl 

Não, continua a procura 

jr 

ronew_10 
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renew_1 1 

inc 

hl 

hl aponta para o inlc» 




da segunda linha 


ex 

de.hl 

da-hl 


W 

hl.(txttab) 

recupera o ponteiro 


kJ 

(hl),e 

para a segunda linha 


inc 

hl 



ld 

(hl).d 


renew_2 





ex 

de.hl ;hl«de 


ld 

e.(hl) ;de-inlcio da próxima 


inc 

hl 

linha 


ld 

d.(hl) 



ld 

a, d ;o número da linha 


or 

o ;é zero? 


ír 

nz.renew_2 

Não, continua a procura 

achoufim 





inc 

hl 

Sim, achou o final do 




programa em BASIC 




ajusta os vetores 


ld 

(vartab).hl 

necessários 


ld 

(arytab).hl 



ld 

(strend).hl 



ld 

hl. (ptrbasic) 

recupora o ptr. do BASIC 


xor 

a 

zera a flag de carry 


ret 


•volta ao BASIC sem 




erro 

comando 

dôfm 

•RENEW 



defb 

#00 


ptrbasic 

defw 

#0000 


fim 

equ 

$ 



Listagem do código-objeto do programa que implementa o comando RENEW: 

10 FOR A%-4HD000 TO 4HD093 
20 READ B$ 

30 POKE A% ( VAL {" 4H"+B$) 

40 NEXT A% 

50 BSAVK "PROG26.BIN” , ÍHD000, 6HD093 

100 DATA F3 , DB, A8 , 47 , E6 , F0, 0F, 0F, 0F, 0F, B0 , D3, A8 , E6, 03, 21 
110 DATA C9,FC,11,10,00,B7,28,04.47,19,10,FD,AF,CB,EF,23 
120 DATA 77,21,34 < D0,ll,00 ( 40 > 01 # 5r,00,ID,B0 r DB,A8 r E6,F0 
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130 DATA D3, A8. FB.C9, 41, 42, 00, 00, 10, 40. 00. 00, 00, 00, 00, 00 
140 DATA 00, 00, 00, 00, 22 , 5C, 40,21, 89, PD, 11 , 56, 40, IA, B7, 28 
150 DATA 0C,BE, 20, 04, 23, 13. 18, F5, 2A, 5C, 40, 37, C9, 2A, 76, F6 
160 DATA 23,23,23,23,7E,B7,28,03,23,18,F9,23, EB, 2A, 76, F6 
170 DATA 73,23, 72 , EB, 5E, 23, 56, 7A, B3 , 20, F8, 23, 22, C2, F6, 22 
180 DATA C4.F6, 22,C6,F6, 2A, 5C. 40. AF.C9, 52, 45, 4E, 45, 57. 00 
190 DATA 00. 00. 00. 00 

Para tostar, carregue o programa PROG26.BIN, carregue um programa em BASIC qual- 
quer, entre oom o comando NEW para apagar o programa em BASIC carregado e, por fim, en- 
tre com o comando 

CALL RENEW 

para recuperar integralmente o programa em BASIC apagado. 

O exemplo acima, além de útil, é bastante elucidativo quanto ao método de utilização e im- 
plementação do comando CALL do BASIC. No próximo capitulo, vamos estudar e criar roti- 
nas para a utilização de um periférico muito em moda: a MEGARAM. 


BIBLIOGRAFIA RECOMENDADA 

% 

PROGRAMAÇÃO AVANÇAOA EM MSX - EDITORA ALEPH 



Capítulo 5 


A MEGARAM 


Quando no início de 1988 apareceram as primeiras MEGARAMs. o mercado não tomou 
consciência do poder deste dispositivo. A sua utilização ficou ató hoje limitada aos jogos que 
a utilizam. Após analisar a MEGARAM, fiquei convencido de qus se trata de um dispositivo 
que pode, simplesmente, aumentar em muito a capacidade de processamento do MSX (tanto 
na versão 1 como na 2). Vejamos, então, os motivos para tal afirmação. 


O QUE É A MEGARAM 

A MEGARAM nada mais ó que um cartucho com 256 Kbytes de memória RAM. O termo 
MEGA se refere a 1 Megabit, ou seja, 128 Kbytes. Como se vê, o termo mega está mal em- 
pregado, já que a ADEGARAM apresenta 256 Kbytes, mas deixemos isso para lá. O que acho 
de espetacular na MEGARAM ó o fatD de que ela oferece, num único slot, 256 Kbytes, quan- 
do sabemos que. polo sistema de chaveamento normal, só podemos ter 64 Kbytes por slot ou 
subslot, no caso de expansão de sk>ts. Fica claro, então, que a MEGARAM possui um cha- 
veamento próprio, pois. caso contrário, não conseguiria acessar os 256 Kbytes disponíveis fa- 
zendo uso de apenas um slot ou subslot. Isto ó simplesmente maravilhoso! Se possuirmos um 
expansor de slots com 4 MEGARAMs conectadas a cada um dos 4 subslots, podemos alcançar 
a impressionante quantidade do 1 Megabyte por slot principal! Incrível, não? Ainda mais incrível 
se considerarmos que o projeto original do MSX só previa a utilização de, no máximo. 1 Me- 
gabyte usando-se todos os 16 subslots, cada qual com 64 Kbytes. Imagine as novas possibi- 
lidades que a MEGARAM abre. Com esta capacidade do memória, ê possível projetar 
programas com tal complexidade e riqueza de detalhes antes só vistas em micros de 16 e 32 
bits. 'Poxa, já fiquei empolgado! Mas, como posso acessar tudo isso?“ 


FUNCIONAMENTO DA MEGARAM 


O funcionamento da MEGARAM é inacreditavelmente simples, se você já domina o geren- 
ciamento dos slots no MSX. Vocô já sabe que um slot ou subslot normal do MSX está dividi- 
do em páginas de 16 Kbytes. A MEGARAM á semelhante: está dividida em páginas de 8 
Kbytes. Sendo assim, a MEGARAM apresenta um total de 256 Kbytes/ 8 Kbytes - 32 páginas. 
Vamos, então, ao o estudo do gerenciamento de todas essas páginas. 
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O gerenciamento da MEGARAM é ferto com o auxilio do uma porta de dados (a porta #8E) 
e dos endereços que delimitam páginas de 8 KL. tes (#0000, #2000, #4000, #6000, #8000, 
#A000. etc.). Para indicar à MEGARAM que devemos chavear a página do um determinado 
endereço, devemos, primeiramente, indicar essa oporação com a ínstruçáo 

OUT(#8E),A 

sem nos preocuparmos com o valor do registro A. Logo após, devemos indicar à MEGARAM 
a página a o segmento de memória que receberá o conteúdo de tal página. Assim sendo, su- 
ponha que desejamos colocar o conteúdo da página 0 (a numeração das páginas vai de 0 a 
31) no segmento de momória que se inicia no endereço #4000 e termina no endereço #7FFF 
do stot ou subslot onde está instalada a MEGARAM. As instruções necessánas seriam: 


OUT 

(#8E),A 

;PREPARA A MEGARAM PARA CHAVEAMENTO 

XOR 

A 

;A-PÁGINA0 

LD 

(#4000), A 

.COLOCA A PÁGINA 0 ENTRE OS ENDEREÇOS 



;#4000 E #7FFF 


Sendo assim, fica claro que, no caso acima, as rotinas contidas na página 0 da MEGARAM 
devem fazer deslocamentos (JUMP, CALL, JR) para os endereços entre #4000 e #7FFF. Por- 
tanto, devemos tomar muito cuidado na hora de programar tais rotinas. Se, por exemplo, as 
instruções acima fossem substituídas pelas instruções 


OUT 

(#8E),A 

;PREPARA A MEGARAM PARA CHAVEAMENTO 

XOR 

A 

;A-PÁGINA 0 

LD 

(#8000), A 

;COLOCA A PÁGINA 0 ENTRE OS ENDEREÇOS 
;#8000 E #9FFF 


as rotinas na página 0 deveriam fazer deslocamentos para os endereços entre #8000 e #9FFF. 
Agora que já aprendemos a chavear. vamos aprender a ler e a escrever na MEGARAM. Uma 
vez chaveada, a MEGARAM estará pronta para ser lida e quase pronta para ser gravada; di- 
go quase porque ainda falta uma instrução para podermos praticar tal ação. Para assinalar à 
MEGARAM que dosojamos oscrover numa dotorminada página, devemos fazer uso da ins- 
trução 

INA,(#8E) 

Suponha, então, que desejamos alterar o primeiro byte da página 0, prevista para ser usa- 
da entre os endereços #4000 e #7FFF. Suponha, ainda, que o byte a ser escrito nessa primei- 
ra posição da página 0 esteja contido no registro E e seja igual a #EB (as minhas iniciais em 
dígitos hexadecimais). O conjunto de instruções a usar seria: 
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LD 

E,#EB 

OUT 

(#8E).A 

XOR 

A 

LD 

(#4000), A 

IN 

A,(#8E) 

LD 

A.E 

LD 

(#4000), A 


;E-VALOR A SER GRAVADO 

;PREPARA A MEGARAM PARA CHAVEAMENTO 

.A-PÁGINA 0 

;COLOCA A PÁGINA 0 ENTRE OS ENDEREÇOS 
;#4000 E #7FFF 

,-PREPARA A MEGARAM PARA ESCRITA 
;TRANSFERE PARA A O VALOR A SER ESCRITO 
iESCREVE O NOVO VALOR NO PRIMEIRO ENDE- 
REÇO DA PÁGINA 0 


Agora qua você já sabe como gerenciar a MEGARAM. que tal construir uma rotina que ve- 
rifique se existe ou não uma MEGARAM conectada ao MSX? 


IDENTIFICANDO A EXISTÊNCIA DE UMA MEGARAM 

O algoritmo de busca a ser usado ó o seguinte: 

1. Obter e salvar a configuração atual dos slots do MSX. 

2.lnidar a busca da MEGARAM pelos slots principais, começando pek> slot 0. 

3.Verificar se o Slot principal em questão está expandido ou não. 

4.Se o slot principal estiver expandido, iniciar uma busca em cada um dos quatro subslots 
possíveis. 

5.Se o slot principal não estiver expandido, fazer a busca da MEGARAM nesse slot. 

ô.Repetir os passos de^a 5 para todos os quatro slots principais. 

7.Terminada a busca, habilitar a configuração original de slots salva no passo 1 . 

B.Se a busca tiver sido bem- sucedida, voltar ao BASIC com o slot o o subslot (se for o caso) 
onde foi encontrada a MEGARAM. Caso contrário, voltar com o valor genérico #FFFF para in- 
dicar a não existência de uma MEGARAM conectada ao MSX. 

O algoritmo para o teste da existência da MEGARAM é o seguinte: 

1 JHabilitar a página 1 (#4000 a #7FFF) do slot e do subslot (se for o caso de um slot expandi- 
do) que estiverem sendo verificados. 

2±er e salvar o conteúdo da posição #4000 para evitar um possível dano num programa resi- 
dente em RAM normal. 


3.Preparar a MEGARAM para chavoamento da página 0 dela na página 1 do slot e do subs- 
lot (se for o caso) sendo analisados. 
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4. Proced er ao chaveamento. 

5. Preparar a MEGARAM para a operação de escrrta na página 0 dela. 

6 . Gravar o valor #EB no primeiro endereço da página 0 da MEGARAM, ou seja, escrever o va* 
lor #EB no endereço #4000. 

7. Preparar a MEGARAM para chaveamento da página 0 dela na página 1 do slot e do subs* 
lot (se for o caso) sendo analisados. 

8. Proceder ao chaveamento. 

9. Preparar a MEGARAM para operação de escrita na página 0 dela. 

10. Ler o valor contido no ondoreço #4000 e compará-lo com #EB. 

1 1 .Se o valor lido no passo 1 0 for diferente de #EB. chega-se à conclusão de que no slot e no 
subslot sendo analisados não existe MEGARAM. Se for este o caso, voltar com a flag de car* 
ry resetada (em zero). 

1 2.So o valor lido no passo 1 0 for igual a #EB, chega-se à conclusão de que no slot e no subs- 
lot sendo analisados existe uma MEGARAM conectada. Se este for o caso, voltar com a flag 
de carry sotada (em um). 

As rotinas da ROM do MSX a serem usadas são as seguintes: 


Nome da rotina 

: RDSLT 

Endereço Inicial 

: #OOOC 

Modo de chamada 

: CALL 

Parâmetros de entrada 

: A-identificação do slot 
HL-endereço a ser lido 

Parâmetros de salda 

: A-byte lido 

Registros alterados 

: AF.BC.DE 

Nome da rotina 

: WRSLT 

Endereço Inicial 

: #0014 

Modo de chamada 

: CALL 

Parâmetros de entrada 

: A-identificaçâo do slot 
HL-endereço a ser modificado 
E-byte a ser escrito 

Parâmetros de salda 

: Nenhum 

Registros alterados 

: AF.BC.D 


Tâbelê 5. 1: Rotinas usadas na verificação da existência de uma MEGARAM conectada ao 
sistema 
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Nome da rotina 

: ENASLT 


Endereço Inicial 

: #0024 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: A-iduntificaçáo do slot 
HL-endereço 


Parâmetros de salda 

: Nenhum 


Registros alterados 

: AF.BC.DE 


Nome da rotina 

: RSLREG 


Endereço Inicial 

: #0138 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: Nenhum 


Parâmetros de salda 

: A-conteúdo do registro 
principal dos slots 


Registros alterados 

: A 


Nome da rotina 

: WSLREG 


Endereço Inicial 

: #0138 


Modo de chamada 

: CALL 


Parâmetros de entrada 

: A-valor a escrever 


Parâmetros de salda 

: Nonhum 


Registros alterados 

: Nenhum 


Tabela 5. 1: Rotinas usadas na verificação da existência da uma MEGARAM conectada ao 
sistema(continuaçâo) 


Cabe ressaltar que o mapea monto por bits usado na identificação de um slot obedece á 
seguinte regra: 


BITS DO REGISTRO A 


n 

6 

5 

B 

3 

• 2 

1 

0 

Flag 

n 

B 

B 

#SSIot 

#SPrin 


onde 

Flag ó um bit que indica se nesta identificação está incluído ou náo um número para o slot se- 
cundário (#SSLOT) 
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#SSLOT ó um par do dois bits (bits 2 e 3) que indica o número do slot secundário (entre 0 e 

3) 

#SPrln é um par de dois bits (bits 0 o 1) que indica o número do slot principal (entre 0 e 3) 


Terminada a teoria, vamos para as listagons do programa que detecta a presença da ME- 
GARAM no sistema. 


Listagem em assembly Z-80 do código-fonte do programa que detecta a presença da 
MEGARAM: 

programa para detectar a presença da MEGARAM 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG27.BIN-PROG27.GEN 

;onde PROG27.GEN e o nome do arquivo-texto com esta 
;listagem 


rdstt 

equ 

#000c 

wrslt 

equ 

#0014 

enaslt 

equ 

#0024 

rsireg 

equ 

#0138 

wslreg 

equ 

#013b 

phydio 

equ 

#0144 

bufset 

equ 

#t351 

vattyp 

oqu 

#1663 

argusr 

equ 

#f 7f B 

exptbl 

equ 

#ícc1 


defb 

#fe 

;slmula om CP/M 

dotw 

inicio 

;o cabecalho de 

defw 

fim 

;um arquivo 

defw 

inicio 

;.BIN 


org 

#d100 


inicio 



di 


;desabilita as interrupçóes 

call 

rsireg 

;lô a configuração atual 

W 

(confatual).a 

;salva em confatual 
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xor 

a 

;a-slot 0 


kl 

hl.oxptbl 

;hl aponta para a tabela 
;de expansões do slots 

loopbusca 

kl 

b,#04 

;b-n úmero de slots 
principais 


kl 

(slotatual).a 

;Salva o slot atual 


(d 

(subsatual).a 

pestes endereços 


brt 

7, (hl) 

;o slot atual está 

— 

ir 


.expandido? 


nz.slotsecund 

;Sim, faz a procura 
;nos slots secundários 


call 

testamega 

• 

;Náo, testa a presença da 
;MEGARAM no slot principal 
;atuaJ 

loopbus_1 

jr 

c.fimbuâca 

:Se achou, vai para fimbusca 


inc 

hl 

;Se nâo. repete a busca no 


ld 

a,(slotatual) 

.próximo Slot 


inc 

a 



djnz 

loopbusca 

9 

naoachou 


ld 

hl,#ffff 

prepara a sinalização 
;de que náo achou a 
;MEGARAM 


ir 

fimbus_l 

;o vofta ao BASIC 

fimbusca 


ld 

a.(subsetual) 

;obtém o slot/subslot 
;onde encontrou a 
IMEGARAM 


kl 

l.a 

prepara a volta ao 


ld 

h,#oo 

;BASIC 

fimbusl 

kl 

a, #02 

;indica parâmetro 


ld 

(valtyp).a 

:inteiro 


ld 

(argusr).hl 

:e passa a indicação 
para o BASIC 


ld 

a.(conlatual) 

;aaconfig. atual 


call 

ei 

ret 

wslreg 

jrestabolece a 
.config. atual 
;habilrta as interrupções 
;retorna ao BASIC 
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.a rotina slotsecun promova uma busca da MEGARAM nos 
;quatro possíveis slots secundários de um Slot 
principal 


slotsecund 

push 

bc 

;salva os registros 


push 

hl 

;afetados 


ld 

e.#00 

;o-lo. Slot secundário 


ld 

b.#04 

;b-4 slots secundários 

slotsecj 

ld 

a.e 

;a-núm do Slot secund. 


ria 


;co!oca o número nos 


ria 


;bits 2 e 3 


and 

%00001100 

pbtóm somente os bits 
£»3 


ld 

e.a 

;salva o resultado em e 


ld 

a.(slotatual) 

pbtém o Slot principal 


and 

%0000001 1 

;certrf»ca-se de estar 
;entre 0 e 3 


or 

e 

;a-ID do slot e do subslot 


set 

7,a 

;indica que ID contém 
-.identificação de subslot 


ld 

(subsatual).a 

;salva neste endereço 


call 

testamega 

itesta a presença da 
;MEGARAM 


V 

c.fimslotsec 

^chou, vai para fimslotsec 


inc 

e 

;Se náo. repete a busca 


djnz 

sbtsecl 

;no próximo subslot 

fimslotsec 

pop 

hl 

;recupera os registros 


pop 

bc 

;salvos 


JP 

nc.loopbusl 

;Se náo achou, continua 
;a busca noutro slot 


ir 

fimbusca 

;Se achou, volta para 
;o BASIC 


;a rotina testamega testa a presença da MEGARAM 
;num determinado slot/subslot 


testamega 


push bc 
push de 
push hl 

call losiot 


;salva os registros 
afetados 


;lô o conteúdo da 
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fimteste 


fimteste 1 


push 

af 

out 

(#8e),a 

ld 

«,#00 

call 

escslot 

In 

a.(#8e) 

ld 

e,#eb 

call 

escslot 

out 

(#8e),a 

ld 

e,#00 

call 

escslot 

call 

teslot 

cp 

#eb 

Jr 

z.fimteste 

pop 

af 

ld 

e.a 

call 

escslot 

xor 

a 



íimteste_1 

pop 

af 

ld 

e.a 

call 

escslot 

s cf 



pop 

hl 

pop 

de 

pop 

bc 

ret 



,pos. #4000 do slot ou 

;substot em questão 

;satva o valor lido 

prepara a MEGARAM para 

phaveamento 

phaveia a MEGARAM para 

:a página 0 

prepara a MEGARAM para 
;escrita 

;e-valor a escrever 
;escreve 

prepara a MEGARAM para 

phaveamento 

phaveia a MEGARAM para 

;a página 0 

;lè o valor 

;compara com o valor 
;escrilo 

;Se achou, vai para fimteste 

;Se nâo. rocupora o valor 
priginal e o repõe 

;Zera a flag de carry para 
;indicar que nâo encontrou 
;a MEGARAM 


;Repõe o valor 
priginal 

;indica que encontrou a 
;MEGARAM 

;recupera os 
;registros salvos 
• 

;e retorna 


;a rotina lesJot 16 o conteúdo do endereço 
;#4000 de qualquer slot/subslot 

lestat 

ld hl, #4000 ;hl aponta para o 
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;endereço a ler 



ld 

a.(subsatual) 

.obtém o ID do slol 
;ou subsloi 


call 

rdstt 

;lô o valor 


ret 


;retorna com o valor 
;lido no registro a 

;a rotina escslot escreve o conteúdo do registro 
;e no endereço 04000 de qualquer slot/subslot 

escslot 

ld 

hl, #4000 

;hl aponta para o 
;endereço a ser 
;modificado 


ld 

a.(subsatual) 

;obtóm o ID do slot 
;ou subslot 


call 

wrslt 

:escrovo o valor 
;contido no registro 

*0 


ret 


;retorna 

confatual 

defb 

#00 

:armazena a configuração 
;onginal 

slotatual delb 

#00 


;armazena os registros dos 
;slots principais atuais 

subsatual 

defb 

#00 

;armazena o Slot secundário 
;atual 

fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa que detecta a presença da ME- 
GARAM: 

10 FOR A%-*HD100 TO CRD1B0 
20 READ B$ 

30 POXE A% , VAL (" iH"+B$) 

40 NEXT A% 

50 BSAVX "PROC27.BIU", 4HD100, &HD1B0 

100 DATA F3,CD, 38,01, 32, AD, D1,AF, 21,C1, FC, 06, 04, 32, AS, Dl 
110 DATA 32, AF, Dl, CB, 7X, 20, 27, CD, 64, Dl, 38, 0C, 23, 3A, AZ, Dl 
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120 DATA 3C, 10, EA, 21, FF, ST, 18,06, 3A, AF, Dl, 6F , 26. 00, 3E. 02 
130 DATA 32 , 63, F6, 22, F8 , F7, 3A. AD. Dl. CD, 3B, 01 , FB, C9, C5, E5 
140 DATA 11,00,06,04, 7B. 17. 17, E6. OC, 5F, 3A, AE, Dl, E6, 03, B3 
150 DATA CB.FF, 32, AF, Dl. CD, 64,D1,38,03, 1C,10,E7, El. Cl. D2 
160 DATA 1C.D1, 18, C4, C5, D5, E5,CD, 99,D1,F5,D3, 8E.1E, 00. CD 
170 DATA A3,D1,DB,8E,1Z,EB,CD,A3.D1.D3,8E,1E.00,CD.A3.D1 
180 DATA CD, 99, Dl , FE, EB, 28, 08, Fl, 5F , CD, A3 , Dl , AF , 18, 06, F1 
190 DATA 5F, CD, A3 , Dl, 37 , El , Dl , Cl, C9, 21,00,40, 3A, AF , Dl, CD 
200 DATA 0C,00,C9,21,00,40, 3A, AF, Dl, CD, 14, 00, C9, 00, 00, 00 
210 DATA 00 


Listagem do programa da teste: 


100 CLSiKEYOFF 
110BLOAD-PROG27.BIN* 

120 DEFUSR-8HD100:REM ENDEREÇO DE ENTRADA DA ROTINA *" 
130 A%-USR(0):REM A%-SLOT/SUBSLOT DA MEGARAM 
140 IF A%-1 THEN GOTO 350;REM ••• NÂO EXISTE MEGARAM 
150A$oRIGHT$(“00000000“+BIN$(A%),8) 

160 IF MID$(AS,1,1)-"0" THEN GOSUB 180 ELSE GOSUB 220 
170 END 

180 GOSUB 290:REM ,M IMPRIME O TlTULO *** 

190 LOCATE 0,1 1 :PRINT “SLOT PRINCIPAL : 

200 PRINT VAL(“&B“+MID$(A$,7,2)) 

210 RETURN 

220 GOSUB 290:REM — IMPRIME O TlTULO “* 

230 LOCATE 0.1 1 rPRINT “SLOT PRINCIPAL : 

240 PRINT VAL(“8B"+MID$(A$.7,2)) 

250 LOCATE 0,12:PRINT “SLOT SECUNDÁRIO : 

260 PRINT VAL('&B“+MID$(A$,5,2)) 

270 RETURN 

280 REM ,M MENSAGEM PRINCIPAL 
290 S$-“LOCALIZAÇÁO DA MEGARAM" 

300 IF PEEK(&HF3B0)>40 THEN CT%-80 ELSE CT%-40 
310 LOCATE (CT%-LEN(S$))/2,8 
320 PRINT S$ 

330 REM — MENSAGEM DE ERRO ,M 
340 RETURN 

350 S$-"NÂO EXISTE MEGARAM CONECTADA AO SISTEMA" 

360 IF PEEK(&HF3B0)>40 THEN CT%-80 ELSE CT%-40 
370 LOCATE (CT%-LEN(S$)V2,8 
380 PRINT S$ 

390 END 



252 Guiado Programador MSX 
CAPJ 

Ao sor executado, o programa em BASIC acima promoverá a busca através da rotina om 
linguagem de máquina que se situa a partir do endereço #D1 00. No retorno, a variável A% In- 
dica o sucesso ou nào da busca, como se pode ver pelo teste feito na linha 140. 


UMA APLICAÇÃO ÚTIL DA MEGARAM 

Vocô deve estar lembrado que, no Capítulo 1, afirmei que um método de se acelerar as 
operações de l/O ó usar buffers. Sendo assim, que tal usar a MEGARAM como um superbuf- 
fer de 256 Kbytes? Melhor ainda: Que tal usar esse buffer para uma cópia física de disquetes 
no padrão MSX-DOS ou MS-DOS? Para chegar ao programa que fará tal maravilha, temos de 
criar mais duas rotinas: uma que permita a transferência de dados da RAM normal para a ME- 
GARAM e outra que permita a transferência de dados no sentido inverso. A idéia é usar um 
buffer de 16 Kbytes em RAM para o armazenamento temporário de 32 setores do disquete e, 
depois, descarregar esse buffer em duas páginas da MEGARAM (náo se esqueça que o 
conceito de páginas na MEGARAM envolve blocos de apenas 8 Kbytes). A implementação 
destas duas rotinas nâo apresenta nenhum transtorno adicional em relação á implementação 
da rotina para o toste da existência da MEGARAM (programa 27). As novas rotinas recebe- 
ram os seguintes nomes: 


RAM_MEGA transfere um bloco da RAM normal, entre os endereços #9000 e #CFFF, para 
duas páginas da MEGARAM entre os endereços #4000 e #7FFF (uma página de #4000 a 
#5FFF e outra de #6000 a #7FFF). 

MEGAJMM transfere um bloco de 16 Kbytes de duas páginas da MEGARAM, entre os en- 
dereços #4000 e #7FFF, para a RAM normal entre os endereços #9000 e #CFFF. 

LEBOOT lê o setor de boot (setor 0) para analisar o tipo de disquete. 

LECONJ lê um conjunto de até 32 setores (16 Kb) do disquete-fonte para a memória RAM. 

GRCONJ grava um conjunto de até 32 setores (1 6 Kb) no disquete de cópia. 


Nâo se intimide com as rotinas para a leitura e gravação de setores apresentadas nas lis- 
tagens abaixo. No próximo capítulo, vamos estudar essas e outras rotinas relacionadas com 
o sistema de disco do MSX. 


O PROGRAMA PARA CÓPIA 
DE SETORES USANDO A MEGARAM 


Este programa se compõem de dois módulos: um em linguagem de máquina e outro em 
BASIC. Reconheço que a listagem em BASIC não ficou muito clara, por eu não ter colocado 
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comentários e nem espaços separando os comandos. Esta ausência se deve ao fato de que 
o programa devena possuir no máximo 2 Kbytes, tendo em vista o carregamento dos setores 
a ler/escrever a partir do endereço #9400. Vamos então ás listagens. 


Listagem em aesembly 2-80 do código-fonte do programa para cópia de setores: 
programa para cópia de setores 

;Compitar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

•GEN80 PROG28.BIN-PROG28.GEN 

9 

;onde PROG28.GEN ó o nome do arqurvo-texto com esta 
;listagem 


rdslt 

equ 

#00 Oc 

wrslt 

equ 

#0014 

enaslt 

equ 

#0024 

rslreg 

equ 

#0138 

wslreg 

equ 

#01 3b 

phydio 

equ 

#0144 

bufset 

equ 

#1351 

valtyp 

equ 

#1663 

argusr 

equ 

#1718 

exptbl 

equ 

#fcc1 


defb 

#fe 

;simula em CP/M 

defw 

inicio 

;o cabecalho de 

defw 

fim 

;um arquivo 

defw 

inicio 

;.BIN 



org 

#d100 


inicio 

di 


;desabilita as interrupções 


call 

rslreg 

.lê a configuração atual 


ld 

(confatual).a 

;salva em confatual 


xor 

a 

:a-5k>t 0 


ld 

hl, exptbl 

;hl aponta para a tabela 
;de expansões de slots 


ld 

b.#04 

;b-número de slots 


principais 


loopbusca 
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ld 

(slotatual).a 

;Salva o slot atual 


W 

(subsatual).a 

pestes endereços 


bit 

7,(hl) 

;o slot atual está 
;expandido? 


V 

nz.slotsecund 

;Sim, faz a procura 
;nos slots secundários 


call 

testamega 

;Não, testa a presença da 
;MEGARAM no slot principal 
;atual 


V 

c, fimbusca 

;Se achou, vai para fimbusca 

loopbusl 


inc 

hl 

;Se nâo. repete a busca no 


ld 

a.(slotatual) 

próximo slot 


inc 

a 

» 


djnz 

loopbusca 

» 

naoachou 


ld 

hl,#ffff 

prepara a sinalização 
;de que não achou a 
;MEGARAM 


jr 

fimbus 1 

;e votta ao BASIC 

fimbusca 


ld 

a.(subsatual) 

pbtóm o slot/subslot 
;onde encontrou a 
;MEGARAM 


ld 

l.a 

prepara a volta ao 


ld 

h.tfOO 

;BASIC 

fimbus_1 

ld 

a, #02 

;indica parâmetro 


ld 

(valtyp).a 

;inteiro 


ld 

(argusr).hl 

;e passa a indicação 
para o BASIC 


ld 

a.(confatual) 

;a-config. atual 


call 

ei 

ret 

wslreg 

;restabe!ece a 
;config. atual 
;habilita as interrupções 
;retorna ao BASIC 


;a rotina slotsecun promova uma busca da MEGARAM nos 
;quatro possíveis slots secundários de um slot 
principal 



A MEGARAM 255 


slotsBcund 

push 

bc 

;salva os registros 


push 

hl 

;afetados 


W 

e,#00 

;o-lo. Slot secundário 


ld 

b.#04 

;b-4 slots secundários 

SlotSBC 1 

ld 

a,e 

;a«núm do slot secund. 


rta 


.coloca o número nos 


ria 


;büs 2 e 3 


and 

%00001100 

;obtém somente os bits 
‘,2 e 3 


id 

e,a 

;salva o resultado em e 


ld 

a.(slotatual) 

;obtóm o Slot principal 


and 

%0000001 1 

;certrfica-se de estar 
;entre 0 e 3 


or 

e 

;a-ID do slot e subslot 


set 

7,a 

;indica que ID contóm 
;identificaçâo de subslot 


ld 

(subsatual).a 

;salva neste endereço 


call 

testamega 

jtesta a presença da 
.MEGARAM 


k 

c.fimslotsec 

;Achou, vai para fimslolsec 


inc 

e 

;Se nâo. repete a busca 


djnz 

sk)tsec_1 

;no próximo subslot 

fimslolsec 

pop 

hl 

;recupera os registros 


pop 

bc 

;salvos 


jp 

nc,kx)pbus_1 

;Se não achou, continua 
;a busca noutro slot 


\r 

límbusca 

;Se achou, volta para 
;o BASIC 


;a rotina testamoga testa a presença da MEGARAM 
;num determinado slot/subsiot 

testamoga 


push 

bc 

.salva os registros 

push 

de 

;afetados 

push 

hl 

9 

call 

leslot 

;lô o conteúdo da 
;pos. #4000 do slot ou 
;subsbt em questão 

push 

af 

;salva o valor lido 

out 

(«8e),a 

;prepara a MEGARAM para 
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W 

e,#00 

^haveamonto 

;chaveia a MLGARAM para 


call 

escslot 

;a página 0 


In 

a.(#8e) 

;prepara a MEGARAM para 


ld 

e.#eb 

;escrita 

;e-vak>r a escrever 


call 

escslot 

;escrove 


out 

(#8e),a 

■.prepara a MEGARAM para 


ld 

e.#00 

;chaveamento 

;chaveia a MEGARAM para 


call 

escslot 

;a página 0 


call 

leslot 

;lè o valor 


cp 

#eb 

;compara com o valor 


k 

z, fimteste 

;escrito 

;Se achou, vai para fimteste 


pop 

af 

Se não. recupera o valor 


ld 

e.a 

original e o repõe 


call 

escslot 

• 


xor 

a 

Zera a flag de carry para 


l* 

fimtestel 

indicar que não encontrou 
a MEGARAM 

fimteste 


pop 

af 

Repõe o valor 


ld 

e.a 

original 


caH 
s d 

escslot 

indica que encontrou a 
MEGARAM 

fimteste_1 


pop 

hl 

recupera os 


pop 

de 

registros salvos 


pop 

ret 

bc 

e retorna 


;a rotina leslot iè o conteúdo do endereço 
;#4000 de qualquer slot/subslot 


leslot 

ld 

hl. #4000 

;hl aponta para o 


ld 

a.(subsatual) 

;endereço a ler 
.obtém o ID do sl< 


call 

rdslt 

:ou subslot 
;lè o valor 
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ret 


;retorna com o valor 
;lido no registro a 


;a rotina escslot escreve o conteúdo do registro 
;e no endereço #4000 de qualquer slot/subslot 

escslot 

ld hl,#4000 ;hl aponta para o 

;endereço a ser 
;moditicado 

ld a.(subsatual) ;obtôm o ID do slot 

;ou subslot 

call wrslt ;escreve o valor 

;contido no registro 

;e 

ret ;retorna 


, -transfere um bloco de 

16 Kbytes da RAM para a MEGARAM 

ram mega 



di 


;desabilita as interrupções 

call 

inimega 

;lnicializa a MEGARAM 

In 

a,(#8e) 

•.prepara a MEGARAM 



;para escrita 

ld 

hl,#9400 

;hl-end. inicial 

ld 

de, #4000 

;de-end. final 

ld 

bc.#4000 

;bc-16 Kbytes 

Idir 


íranstere 

out 

(#8e),a 


ld 

a.(confatual) 

;a-con(. original 

call 

wslreg 

;habilita a config. 



;original dos slots 

ei 


;habil«ta as interrupções 

ret 


;retorna ao BASIC 

^transfere um bloco de 

1 6 Kbytes da MEGARAM para a RAM 

mega ram 



di 


;desabilita as interrupções 

call 

inimega 

•.inicializa MEGARAM 
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ld 

hl. #4000 

;hl-end. Inicial 

ld 

de, #9400 

;de-end. final 

ld 

bc.#4000 

;bc-16 Kbytes 

Idir 


.transfere 

out 

(#8e).a 

• 

ld 

a.(confatual) 

;a-conf. original 

call 

wslreg 

;habilita a config. 
.original dos slots 

ei 


;habilrta as interrupções 

ret 


;retorna ao BASIC 


;a rotina inmega inicializa a MEGARAM. 

.O parâmetro da função USR do BASIC 

;devo indicar a página da MEGARAM a ser chaveada 


intmega 



call 

rslreg 

;lê a configuração 



;atual dos sbts 

ld 

(confatual).a 

;$alva em confatual 

ld 

a.(subsatual) 

;obtóm o ID da MEGARAM 

ld 

hl. #4000 

ihabilita a página 

call 

enaslt 

;1 do Slot da MEGARAM 

out 

(#8e),a 

;prepara a MEGARAM 



;para chaveamento 

ld 

a.(argusr) 

;obtém a página da 



iMEGARAM 

ld 

(#4000).a 

;chaveia 

inc 

a 

;chaveia a próxima 



;página no endereço 

ld 

(#6000),a 

;#6000 

ret 


;retorna 


;a rotina leboot lè os setores 0 do disquete-fonte e de 
;destino, para comparar os tipos e obter o número de 
;setores a oopiar. O parâmetro da função USR passa 
;o número do drive a analisar 

leboot 

W hl.(bufset) 

ld de.#0000 

kd b,#01 


;obtóm o endereço 
;do buffer 
;de-núm. do setor 
;a ler 

;b»número de setores 
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ld 

c,#f9 

;a ler 

•,c-paràmetro do 

xor 

a 

formatação 
,zera a fiag 

ld 

a.(argusr) 

;do carry 
;a-driva 

call 

phydio 

fé o boot 

ld 

ix.(bufset) 

;obtém o tipo 

ld 

a,(ix+#15) 

;de formatação 

ld 

(tipofor).a 

;salva em tipofor 

ret 

;volta ao BASIC 


;a rotina leconj lô um conjunto de ató 32 sotores (16 Kb) 
;do disquete-fonte 


leconi 

ld 

hl, #9400 

;hl-ond. iniaal 

ld 

de.(argusr) 

;obtém a número 
;do setor inicial 

ld 

a.(numset) 

;obtóm o número 
;de sotores a ler 

ld 

b.a 

icoloca em b 

ld 

a.(tipofor) 

;obtém o tipo de 

ld 

c,a 

formatação 

xor 

a 

;zera a flag de carry 

ld 

a.(driva) 

;obtóm o drive 

call 

phydio 

;lô os setores 

ret 

•.retorna ao BASIC 

;a rotina grconj grava um conjunto de ató 32 setores 

;(32 Kb) no disquete do destino 


grconj 

ld 

hl.#9400 

;hl-end. inicial 

ld 

de.(argusr) 

;obtóm o número 
;do setor inicial 

ld 

a.(numsot) 

;obtóm o número 
;de setores a lor 

ld 

b.a 

;co'oca em b 

ld 

a.(tipofor) 

;obtém o tipo de 

ld 

c.a 

formatação 

ld 

a.(drive) 

;obtém o drive 

sd 


;seta a flag de carry 

call 

phydio 

fé os setores 
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ret 


;retorna ao BASIC 

drive 

defb 

#00 

;drive atual 

numset 

defb 

#00 

;núm. de setores a 
;ler ou gravar 

tipofor 

dofb 

#00 

;tipo do formatação 

endini 

defw 

#0000 

;end. inicial 

endfim 

defw 

#0000 

;end. final 

conf atual 

defb 

#00 

;armazena a configuração 
;original 

slotatual 

defb 

#00 

;armazena o slot principal 
;atual 

subsatual 

defb 

#00 

;armazena o slot secundário 
;atual 

fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa para cópia de setores: 

10 FOR A%-*HD500 TO 6HD651 
20 RE AD B$ 

30 POKE A% , VAL ( " 4H M +B$) 

40 NEXT A« 

50 BSAVE "PROC28.BIN-, 4HD500, 6HD651 

100 DATA F3,CD, 38, 01, 32, 4E, D6, AT, 21, Cl, FC. 06, 04, 32, 4F, D6 
110 DATA 32, 50. D6, CB, 7E, 20, 27, CD, 64, D5, 38, 0C, 23, 3A, 4F, D6 
120 DATA 3C, 10, EA, 21, TF, FF , 18,06, 3A, 50, D6, 6F. 26, 00, 3E, 02 
130 DATA 32,63, F6, 22, F8, F7, 3A, 4E, D6, CD, 3B, 01 , FB, C9, C5, £5 

140 DATA lE,00,06,04,7B.17,17,E6,OC.5F,3A,4r,D6,E6,03,B3 
150 DATA CB,IT, 32,50, D6, CD, 64 , D5, 38, 03, 1C, 10, E7 , El, Cl, D2 
160 DATA 1C.D5, 18,C4,C5,D5, E5,CD, 99,D5,F5,D3. 8E, 1E, 00, CD 
170 DATA A3, D5, DB, 8E, 1E,EB, CD, A3, D5,D3, 8E, 1E, 00, CD, A3, D5 
180 DATA CD, 99, D5, FE, EB, 28, 08, F1,5F, CD, A3, D5. AF, 18, 06, F1 
190 DATA 5F, CD, A3 , D5, 37 , El , Dl , Cl, C9, 21, 00, 40, 3A, 50, D6, CD 
200 DATA 0C, 00, C9, 21, 00, 40, 3A, 50, D6, CD, 14, 00, C9. F3, CD, El 
210 DATA D5, DB, 8E, 21, 00, 94, 11 , 00, 40, 01, 00, 40, ED, B0, D3, 8E 
220 DATA 3A, 4E, D6, CD, 3B, 01, FB, C9, F3, CD, El , D5, 21,00, 40, 11 
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230 DATA 00, 94, 01 , 00, 40, ED, B0, D3, 8E, 3A, 4E, D6, CD. 3B, 01, FB 
240 DATA C9, CD, 38, 01, 32, 4E. D6, 3A, 50, D6, 21, 00, 40, CD, 24, 00 

250 DATA D3, 8E, 3A,F8,F7, 32, 00, 40, 3C, 32, 00. 60, C9, 2À, 51, F3 

260 DATA 11, 00, 00, 06, 01, OE, F9,AF, 3A.F8. F7.CD, 44, 01, DD, 2A 
270 DATA 51 , F3, DD, 7E, 15,32, 49, D6, C9, 21, 00, 94 , ED, 5B. F8, F7 
280 DATA 3A, 48, D6, 47, 3A, 49 , D6 , 4F, AF, 3A, 47 , D6, CD, 44, 01 , C9 
290 DATA 21, 00, 94, ED, 5B,F8, F7 . 3A, 48, D6, 47, 3A. 49, D6, 4F, 3A 

300 DATA 47. D6, 37, CD, 44, 01. 09,00,00,00. 00. 00, 00, 00, 00, 00 

310 DATA 00.00 


Listagem do programa em BASIC para cópia de setores: 

1000 KEYOFF:WIDTH40:CLEAR 200.&H93FF.DEFINTA-Z 
1010 CLS:BLOAD"PROG25.BIN",R:BLOAD"PROG2B.BIN" 

1 020 DEFUSR0-8HD5OO:DEFUSR1 -&HD5AO:DEFUSR2-&HD5CB 

1 030 DEFUSR3-&HD5FD.DEFUSR4-AHD61 9:DEFUSR5-SHD630 

1040 DR-&HD647;NT«&HD648 

1050 GOSUB1780 

1060 IFA-1THENENDELSECLS 

1 070 ED!-PEEK(&HF351 )+256*PEEK(&HF352) 

1080DEFFNN(ED!)-(PEEK(ED!+19)+256*PEEK(ED!+20)) 

1 090 A-USRO(0):IFA--1 THENGOTO2090 
1100 GOSUB1 130 

1110 IFDD-DFTHENGOSUB1 200ELSEGOSUB1340 
11 20 GOTO 1050 

1 1 30 SI $-"DRIVE-FONTE":S2$-*DRIVE -COPIA" 

1140 S3$-"ESCOLHAOSDRIVES":X1-(40-LEN(S3S))/2-1:X2-XUU 
LEN(S3$):Y1-9:Y2-11 

1150WINDOWX1.Y1,X2.Y2,1:LOCATEXU1,YU1:PRINTS3$:LOCATE1.0 

:PRINTS1 $:LOCATE21 ,0:PRINTS2$:C-0:D-0 
1160 MENU1, 0.21, 0.1 1.9.A 

1170IFA-OTHENGOSUB1480:DF-A:C-1:IFD-1THENRETURNELSEGOTO 

1160 

1 1 80 IFA-1THENGOSUB1 480:DD-A:D-1 :IFC-1 THENRETURN 
1190 GOTO1160 
1 200 DA-DF.GOSUB1 960:CLS 
1210A-USR3(DF):N1-FNN(ED!) 

1 220 XI -0:X2-24:Y1 -2:Y2-8 
1 230 WINDOWX1 ,Y1 .X2.Y2.1 

1240 LOCATEXU1.Y1+2:PRINr DISCO-FONTE : •;CHR$(&H41+DF): 
LOCATEX1 -f 1 ,Y2-2:PRINT"NÚM. DE SETORES:";N1 
1250 DA-DD:GOSUB1980 
1260 A-USR3(DD):N2«FNN(ED!) 

1 270 XI -12:X2-36:Y1 -10.Y2-16 
1280 WINDOWX1 ,Y1 ,X2,Y2,1 
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1290 LOCATEX1 * 1,YU2:PRINT"DISCO DA CÓPIA : *;CHR$(&H4UDD) 

:LOCATEXU1,Y2-2;PRINT*Ni5m. DE SETORES.*;N2 

1300 GOSUB2080 

1310 IFN1oN2THENG0T01 840 

1320 GOSUB1590 

1330 RETURN 

1340 Sl$-*COLOQUE OS DISQUETES NOS DRIVES* 

1350 GOSUB1900.CLS 

1360A-USR3(DF):N1«FNN(ED!):A-USR3(DD):N2=FNN(ED!) 

1 370 XI -0:X2-24:Y1 -2:Y2-8 
1 380 WINDOWX1 ,Y1 ,X2,Y2,1 

1 390 LOCATEXU1 ,Y1 +2:PRINT*DRIVE : *;CHR$(&H41+DF) 

1400 LOCATEXU1.Y2-2:PRINT*NÚM. DE SETORES:*;N1 

1410X1-XU12:X2-X24l2:Y1-YU8:Y2-Y2+8 

1420 WINDOWX1.Y1.X2.Y2.1 

1430 LOCATEXU1,YU2:PRINT*DRIVE:*;CHR$(&H4UDD) 

iLOCATEXl +1 ,Y2-2:PRINT*NÚM. DE SETORES:*;N2 

1 440 GOSUB2080 

1 450 IFN 1 oN2THENG0T01 840 

1460 GOSUB1590 

1470 RETURN 

1480 IFA-OTHENXI-lELSEXl-21 
1490 X2-XU8:Yl-1:Y2-4 

1 500 LOCATEX1 -1 ,YU1 :PRINT ":LOCATEX1*1,Y1 SPRINT* 

LOCATEX2 + 1 .YU 1 :PRINr ":LOCATEX2+ 1 ,Y 1 SPRINT* * 

1510 REVERSE.,0,1 

1520 WINDOWX1 ,Y1,X2,Y2,1 

1530 LOCATEXUI.Yl+1 :PRINT"DRIVE A" 

1540 LOCATEXU1,YU2:PRINT*DRIVE B* 

1550 MENUXU1 .Y1+1 .X1+1 .YU2.7.1 .A 
1560 REVERSE.,0,1 

1570LOCATEXM .YU 1 4 A:PRINT’>*:LOCATEX2+1 .YUUA:PRINF<- 
1580 RETURN 

1 590Q1 -NI -(NI MOD51 2):Q2-N1 -{(Ni -Ql )MOD32):Q3-N1 
1 600 FORX-OTOQ1 -1 STEP51 2 

1610DA-DF:PG-0:NS-32:POKEDR.DA:POKENT.NS:IFQ1-0THENQL-Q2-1 

ELSEQL-X+511 

1620 IFDF-DDTHENGOSUB1960 

1630 FORY-XTOQLSTEP32:SI-Y:GOSUB2000:A-USR4(Y):A-USR1(PG): 
PG-PG+2:NEXTY 

1 640 IFQ1 -OTHENNS-N 1 -Q2:POKENT,NS:SI«Q2:GOSUB2000:A-USR4 
(Q2):A-USR1(PG) 

1 650 DA-DD:PG-0:NS-32:POKEDR.DA:POKENT.NS:IFDF-DDTHENGOSUB 
1980 

1 660 FORY-XTOQLSTEP32:SI-Y:GOSUB2020:A-USR2(PG):A-USR5(Y): 
PG-PG+2:NEXTY 

1 670 IFQ1 -OTHENNS-N 1-Q2:POKENT,NS:SI-Q2:GOSUB2020:A-USR2 
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(PG):A-USR5(Q2):G0T01 770 
1680 NEXTX 

1690DA-DF:PG-0:NS-32:POKEDR.DA:POKENT.NS:IFDF-DDTHENGOSUB 

1960 

1 700 FORY-Q1 TOQ2-1 STEP32:SI-Y:GOSUB2000:A-USR4(Y):A-USR1 

(PG):PG-PG+2:NEXTY 

1 71 0 IF(Q2-Q3ANDDF-DD)THENGOSUB1 980 

1720lFQ2-Q3THENPG-0:DA-DD:POKEDR.DA:FORY-QlTOQ2-1STEP32: 
SI-Y:GOSUB2020:A-USR2(PG):A-USR5(Y):PG-PG+2:NEXTY :G0T01 770 
1730NS-Q3-Q2:POKENT,NS:SI-Q2:GOSUB2000:A-USR4(Q2):A- 
USRI(PG) 

1 740 DA-DD:PG-0:NS-32:POKEDR.DA:POKENT,NS:IFDF«DDTHENGOSUB 
1980 

1750FORY-Q1TOQ2-1STEP32:SI-Y:GOSUB2020:A-USR2(PG):A«USR5 

(Y):PG-PG*2:NEXTY 

1760NS-Q3-Q2:POKENT,NS:SI-Q2:GOSUB2020:A=USR2(PG):A-USR5 

(Q2) 

1770 RETURN 

1780 CLS:S1$-"CÓPIA DE DISQUETES? SIM":S2$-"NAO" 

1 790 XI -(40-LEN(S1 $))/2:Y1 -1 1 :LOCATEX1 ,Y1 :PRINTS1 S 
1 800 XI -XI +LEN(S1 $)-3:LOCATEX1 ,YU1 :PRINTS2$ 

1 81 0 MENUX1 ,Y1 .XI .YU1 ,3.1 .A 
1820 REVERSE.,0,1 
1830 RETURN 

1 840 SI $--0 DISQUETE DE CÓPIA E DIFERENTE“:S2$-"DO DISQUETE-FONTE" 

1 850CLS:BEEP:X1 -(40-LEN(Sl $))/2:X2-XU1 +LEN(S1 $):Y1 - 1 0 

:Y2-13 

1 860 WINDOWX1 ,Y1 .X2.Y2.1 

1 870LOCATEXU 1 ,YU 1 :PRINTS1 $:LOCATE(40-LEN(S2S)y2. 

YU2:PRINTS2$ 

1 880 GOSUB2080:GOSUB1 780 

1 890 IFA- 1 THENCLS:END.ELSECLS:RETURN 1 070 

1900 S2S-" PRESSIONE QUALQUER TECLA" 

1910X1-(40-LEN(S1$))/2-1:X2-XUULEN(Sl$):Y1-20:Y2-23 

1 920 GQSUB2070 

1 930 WINDOWX1 ,Y1,X2,Y2,1 

1 940LOCATEX1 +1 ,YU1 :PRINTS1 $:LOCATE(40-LEN(S2$))/2.Y2-1 :PRINTS2$ 

1950 IFINKEYS-*THEN1950ELSEGQSUB2070:RETURN 

1960 Sl$-'COLOQUE O DISQUETE-FONTE EM "+CHR$(&H4UDA)+" " 

1 970 GOSUB1 900:RETURN 

1980 Sl$-"COLOQUE O DISQUETE DE CÓPIA EM %CHR$(&H4UDA)+" " 

1 990 GOSUB1 900:RETURN 

2000 SI $»"LENDO DO SETOR"+STR$(SI)-»-’ AO‘+STR$(SI+NS-1 ) 

201 0 GOSUB2040:RETURN 

2020 SI $-“GRAVANDO DO SETOR"+STRS(SI)+" AO"+STR$(SI+NS-1 ) 

2030 GOSUB2040:RETURN 

2040CLS:X1-(40LEN(SlS))/2-1:X2-XUULEN(S1$):Y1-10:Y2-l2 
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2050 WINDOWX1 ,Y1 .X2.Y2.0 

2060 LOCAT6X1 ♦ 1 ,YH 1 :PRINTS 1 $:RETURN 

2070FORA-Y1TOY2:LOCATEO.A:PRINTSTRING$(39.-');:NEXTA:RETURN 
2080 S1$-*PRESSIONE QUALQUER TECLA":S2$-’PARA CONTINUAR": 

GOSUB1 91 0:RETURN 

2090 S1$-"SISTEMA SEM MEGARAM CONECTADA":S2S-‘IMPOSSIVEL CONTI- 
NUAR" GOSUB1 91 0:CLS:ENO 


Apesar de confusa visualmente, a listagem em BASIC acima não ó dlficil de ser entendi- 
da. A maior parte das sub-rotinas ó dedicada a exibir mensagens ou menus, sendo que ape- 
nas trôs lidam com o acesso ao disco: uma sub-rotina para comparar os disquetes na cópia 
usando apenas um drive, outra para fazer a mesma comparação usando dois drives e, por últi- 
mo, uma rotina dedicada única e exclusrvamente à cópia. 

Ao executar o programa acima, você vai perceber uma disparidade entre a velocidade do 
processo de leitura, que ó razoavelmente rápido, e a velocidade do processo de gravação, que 
é muito lento. Tal disparidade será corrigida no Capítulo 7, quando estudaremos o acesso di- 
reto dos drives. 

Com o programa acima, terminamos o estudo da MEGARAM num exemplo prático. As ro- 
tinas apresentadas para o acesso da MEGARAM são extremamente flexíveis, sendo por isso 
mesmo facilmente adaptadas a novas condições. No próximo capítulo, vamos estudar o am- 
biente do MSX-DOS e as rotinas que ele oferece. 


BIBLIOGRAFIA RECOMENDADA 

INTRODUÇÃO À LINGUAGEM DE MÁQUINA PARA MSX • Eduardo Alberto Barbosa - Rio 
de Janeiro - CIÊNCIA MODERNA COMPUTAÇÃO LTDA. 

APROFUNDANDO-SE NO MSX - EDITORA ALEPH 

PROGRAMAÇÃO AVANÇADA EM MSX - EDITORA ALEPH 



Capítulo 6 


O SISTEMA DOS 


Apesar de não ser uma interface das mais amigáveis, pois necessita que o usuário conheça 
os comandos de antemão, o sistema DOS (do inglês Disk Operating System-Sistema Ope 
racional de Disco) ó bastante podoroso e versátil. "Mas. se é tão poderoso e versátil, por que 
não e amigável?" Ocorre que o sistema operacional para o MSX (o MSX-DOS) está baseado 
no sistema CP/M, criado nos fins da década de 70. Ora, os microcomputadores daquela épo- 
ca não possuíam nem um torço da capacidade gráfica, ou mesmo de processamento, dos 
micros atuais. A vorsatilidade e o poder do CP/M não podem ser contestados, pois trata-se de 
um sistema que quebrou as barreiras entre os diversos padrões de microcomputadores da 
época (TRS-80, Apple. etc). O que se pode contestar ó a sua adaptação a microcomputadores 
que oferecem tolas coloridas em alta resolução, maior capacidade de armazenamento em dis- 
quetes o maior velocidade de processamento. Não podemos nos esquecer que o padrão de 
armazonamento nos fins da década de 70 eram os disquetes de 5 1/4" com 180 Kbytes for- 
matados. Ora. hoje já temos disquetes armazenando 1 ,44 MBytes. "Mas, então, por que o sis- 
tema oporacional escolhido para o MSX foi o CP/M?" Acredito que tal escolha se deve a um 
motivo básico: custo. Por que inventar um novo sistema operacional para um micro do 8 bits 
(não podemos deixar de levar em oonta que, quando o MSX foi lançado, os micros do 16 bits 
já estavam se impondo com um padrão) se já existia um pronto usando o mesmo processa- 
dor, amplamonte testado e com uma larta biblioteca de programas? Acho, sincoramente. que 
foram esses os motivos que pesaram na escolha de um sistema oporacional para o MSX. 
"Então, quer dizer que nunca poderei ter uma interface amigável do tipo Windows no meu 
MSX?" Não exatamente. Vejamos o caso do MS-DOS versão 4.01, que nada mais é do que 
um conjunto de programas que, sendo executados sob o DOS, implementam uma interface 
gráfica bastante amigável. No MSX, pode-se repetir o mesmo efeito sem grandes malabaris- 
mos. a não ser a possível exigência de um acessório tipo MEGARAM, para suprir as necessi- 
dades de memória de tal tipo de programa. Mas, para implementá-lo, temos de conhecer o que 
oferece o MSX-DOS. 


O MSX-DOS 

Você pode ficar surpreso, mas a parte principal do MSX-DOS não está contida no chama- 
do disquete do sistema, e sim numa memória ROM (somente para leitura) contida no cartucho 
da interface do drive. É nessa memória que se encontram as rotinas para o acesso ao drive, 
entre elas a rotina para leitura/gravação de setores, a rotina para formatação de disquetes e 
diversas rotinas para o gerenciamento dos arquivos. "Mas. então, o que fazem os programas 
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do disquete de sistema"?* Simples: O disquete de sistema do MSX è composto basicamente 
por dois arquivos: 


MSXOOS.SYS que inicializa o ambiente do DOS e carrega o interpretador de comandos. 

COMMAND.COM que é o responsável pela interpretação e execução de comandos como 
DIR, COPY, etc. 


Para funcionar, o arquivo COMMAND.COM faz chamadas constantes às rotinas contidas 
na ROM da interface do drivo. Feitos os esclarecimentos, vamos à apresentação das funções 
disponíveis no DOS. Antes, porém, cabe ressaltar que tal conjunto de funções recebe o nome 
genérico de BDOS 


AS FUNÇÕES DO BDOS 

Estas funções estão disponíveis tanto no MSX-DOS como no BASIC de Disco, variando 
somente o endereço de chamada 



COMANDO DE CHAMADA 
DO BDOS 

MSX-DOS 

CALL 

#0005 

BASIC DE DISCO 

CALL 

#F37D 


Todas as funções abaixo foram implementadas visando uma compatibilidade quase que 
total com o ambiente CP/M. Digo quase total porque existem algumas pequenas diferenças a 
nível de endereços de memória, tamanhos de buffers, etc., mas que no conjunto não chegam 
a comprometer a pseudocompatibilidade. O fato ó que conseguimos executar no MSX DOS 
os grandes sucessos do CP/M, como Supercalc 2. Dbase II, Turbo Pascal, etc. 

Para se ativar uma das funções abaixo, devo-se adotar o seguinte procedimento: 

1. Carregar o registro C com o número da função a sor executada. 

2. Carregar os registros DE e HL (se for o caso) com os valores apropriados. 

3. Fazor uma chamada para o endereço inkaal do BDOS (#0005 no MSX-DOS e #F37D no BA- 
SIC de Disco) 
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Função #00 : Esta função provoca o reinicio do sistema. No caso da saída de um programa 
demasiadamente grande e que, por isso, alterou a memória de forma imprevisivet. torna-so 
necessária a chamada desta função para o carrogamento do arquivo MSXDOS.SYS ou equi- 
valente. De forma geral, esta função limpa todos os buffers e retorna para o modo de coman- 
do do DOS (A>). No BASIC de Disco, esta função simplesmente reinicializa todo o sistema 
com um ofoito igual ao de desligar e ligar o computador. 

Função #01 : Esta função faz a leitura do uma tecla com eco na tela. O termo eco está rela- 
cionado ao fato de que o caractere correspondente à tecla lida ó também impresso na tela. O 
código ASCII do caractere da tecla lida rotorna no registro A. 

Função #02 : Esta função imprime na tela o caractere cujo código ASCII se encontra no re- 
gistro E. Você também pode usar esta função para impressão de caracteres de controle, já 
que o terminal omulado pelo MSX é o VT-52. Os códigos de controle deverão ser precedidos 
do código escape (#1B«27), de modo que você deverá, neste caso. lazor duas chamadas a 
esta função: uma com o código escape e outra com o código do caractere de controle. Os códi- 
gos de controle são: 


ASCII 

HEXA 

ESC.J 

1B.6A 

ESC.E 

1B.45 

ESC.K 

1B.4B 

ESC.J 

1B.4A 

ESC.I 

1B.6C 

ESC.L 

1B.4C 

ESC.M 

1B,4D 

ESC.Y.SP+L.SP+C 

1B.59; 

ESC.A 

1B.41 

ESC.B 

1B.42 

ESC.C 

1B.43 

ESC, D 

1B.44 


AÇÀO 

Limpa a tela 
Limpa a tela 
Limpa do cursor ao 
fim da linha 
Limpa do cursor ao 
fim da tela 
Limpa toda a linha 
onde se encontra o 
cursor 

Insere uma linha em 
branco 

Apaga a linha onde 
se encontra o 
cursor 

.,20+C Posiciona o cursor 

nas coordenadas L.C, 
onde L-linha e C- 
coluna da tela 
Move o cursor uma 
linha para cima 
Move o cursor uma 
linha para baixo 
Move o cursor uma 
coluna para a 
direita 

Move o cursor uma 
coluna para a 
esquerda 
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ESC.H 

1B.48 

ESC.X.4 

1B, 78.34 

ESC,y,4 

1B.79.34 

ESC.x.5 

1B,78,35 

ESC.y.5 

18,79.35 

Funçáo #03 

: Esta função espera a 


Coloca o cursor nas 
coordenadas (0,0) 
Cursor cheio 
Cursor sublinhado 
Acende o cursor 
Apaga o cursor 


exemplo), cujo código ASCII será colocado no registro A. Durante a execução desta rotina, ó 
possível o uso da combinação CONTROL S no teclado para susponder a leitura da porta se- 
rial. Infelizmente. esta função não funciona nos modems que não seguem o padrão MSX (até 
o fechamento deste livro, nenhum modem para o MSX seguia o padrão). 


Função #04 : Esta função envia para a porta serial o caractere cujo código ASCII se encon- 
tra no registro E. Permanecem válidas as duas observações feitas na função anterior. 

Função #05 : Esta função envia para a impressora (porta paralela) o caractere cujo código 
ASCII se encontra no registro E. Da mesma forma que nas duas rotinas anteriores, ó feita uma 
verificação do teclado para detectar um possível CONTROL-S que suspenda o envio do ca- 
ractere para a impressora. 


Funçáo #06 : Esta função faz uma leitura direta do tedado com funcionamento somelhante 
ao da função INKEY$ do BASIC. Se na chamada a esta função o rogistro E armazenar o va- 
lor #FF, na volta o registro A conterá o código ASCII da tecla pressionada. Mas,se na chama- 
da o registro E armazenar qualquer valor diferente de #FF. esta função imprimirá primeira mento 
o caractere cujo código ASCII está na tela, procedendo em seguida à leitura do teclado, com 
o código ASCII da teda pressionada retornando em A. Se o registro A voltar com o valor #00. 
assume-se que não foi pressionada nenhuma tecla. 


Função #07 : Esta funçáo faz uma leitura direta do teclado com espera. O seu funcionamen- 
to á muito semelhante ao da funçáo INPUT$(1) do BASIC. O código ASCII da tecla pressio- 
nada retoma no registro A. 


Função #08 : Esta função ô idêntica à função #01, diferindo apenas no eco para a tela, pois 
o caractere lido não á enviado para ela. 

Funçáo #09 : Esta função imprime uma string na tola. Na chamada, o par do registro DE de- 
verá apontar para o endereço de memória que contárn o primeiro caractere da string a ser im- 
pressa. A string deverá terminar com o caractere $ (#24), quo não será impresso 


Funçáo #0A : Esta funçáo lê toda uma linha, funcionando de modo semelhante à função UNE 
INPUT do BASIC. Ela apresenta a vantagem de podermos definir o comprimento da linha a 
ser lida. Assim sendo, o par DE na chamada deve apontar para um buffer com a seguinte es- 
trutura: 
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Primeiro byte 
Segundo byte 
Terceiro byte 
Quarto byte 


: Número de caracteres a ler 
: Número de caracteres lidos 
: Pnmeiro caractere lido 
: Segundo caractere lido 


Fica claro que os caracteres lidos serão colocados a partir da terceira posição do buffer. A lei- 
tura termina assim que seja pressionada a tecla Enter/Return. Note que devemos fornecer na 
primeira posição do buffer o número máximo de caracteres a ler. Se o número de caracteres 
lidos ultrapassar esse limite, o sistema emite um beep para cada caractere extra, sendo que 
todos os extras serão ignorados. Note que vocô poderá usar a tecla de BackSpace (BS) para 
editar a entrada. No retomo, a segunda posição do buffer indicará o número de caracteres li- 
dos. 

Função #0B : Esta função faz uma verificação direta do teclado nos moldes da função INKEYS 
do BASIC. Se o registro A apresentar o valor #FF no retorno, alguma tecla foi pressionada; já 
se apresentar o valor #00, nenhuma tecia foi pressionada. Esta função detecta as teclas de 
controle, como CONTROI-P e CONTROL-C, tomando as decisões apropriadas. 

Função #0C : Esta função retorna com o número da versão do DOS instalado. No caso do 
MSX-DOS, o registro HL retorna com #0022, indicando uma compatibilidade com o sistema 
CP/M versão 2.2. 

Função #0D : Esta função promove uma atualização dos dados do disquete (tipo, número de 
arquivos, etc.) contidos nos buffers do MSX-DOS. Tenha o cuidado de usar esta função so- 
mente na troca de disquetes, pois todos os buffers (incluindo os FCBs) serão apagados. 

Função #OE : Esta função seleciona um drive como default. O registro E deverá armazenar o 
drive (t-A, l-B, etc.) que se tornará o default. 

a J í y 

Função #OF : Esta função abre um arquivo. O par DE deve apontar para o FCB do arquivo 
que se deseja abrir. Note que esta operação é absolutamente necessária para se iniciar uma 
leitura. Se o registro A apresentar o valor #00 no retorno, o arquivo existe; já se apresentar o 
valor #FF, o arquivo não foi encontrado. Por esta razão, essa função é muito utilizada para se 
descobrir se um determinado arquivo existe ou não. Só um lembrete: o par DE deve apontar 
para o FCB do um arquivo não aberto. 

Função #10 : Esta função deve ser executada após a etapa de gravação de registros num ar- 
quivo. Na entrada, o par DE deve apontar para o FCB do arquivo recém-gravado. É absoluta- 
mente indispensável chamar esta função após a gravação de novos registros em qualquer 
arquivo, caso contrário, a entrada do arquivo correspondente no diretório não será atualizada, 
o que, por sua vez, conduzirá á perda de todos os dados do arquivo em questão. 

Função #11 : Esta função procura o primeiro arquivo no diretório cujo nome combine oom a 
descrição contida no FCB apontado pelo par DE. A descrição contida no FCB pode fazer uso 
do caractere coringa "?*. Se o registro A apresentar o valor #00 no retomo, foi encontrado um 
arquivo que corresponde à descrição feita no FCB. caso contrário, o registro A retorna com o 
valor #FF. O FCB do arquivo encontrado á colocado a partir do primeiro byte do DMA. 
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Função #12 : Esta (unção procura o próximo arquivo no diretório cujo nome combine com a 
descrição contida no FCB apontado pelo par DE. Permanecem válidas todas as observações 
feitas na função #11. 

Função #13 : Esta função doleta o arquivo cujo FC8 6 apontado pelo par DE. Se o registro A 
apresentar o valor #00 no retorno, o arquivo foi deletado com sucesso, caso contrário, o regis- 
tro A retoma com o valor #FF. Observe que o FCB pode conter o caractere coringa sen- 
do que, neste caso, serão apagados todos os arquivos cujos nomes se correspondam com a 
especificação contida no FCB. 

Função #14 : Esta função lô um bloco do 128 bytos de um arquivo seqüencial cujo FCB é 
apontado pelo par DE. O bloco de 128 bytes ó colocado no DMA. Se o registro A apresentar 
o valor #00 no retorno, o bloco foi lido com sucesso; se apresentar o valor #01 , foi lido o últi- 
mo bloco de 128 bytes do arquivo e, por último, se apresentar o valor #02, houve algum tipo 
de erro de leitura. 

Função #15 : Esta função grava um bloco de 128 bytes num arquivo seqüencial cujo FCB é 
apontado pelo par DE. Os 128 bytes a serem gravados devem estar no DMA. Se o registro A 
apresentar o valor #00 no retorno, a gravação foi feita com sucesso; já se apresentar o valor 
#01 , há falta de espaço livre no disco. Qualquer outro valor indica uma situação de erro de gra- 
vação. 

Funçáo #16 : Esta função cria um arquivo no disco. Na entrada, o par DE deve apontar para 
o FCB do arquivo a ser criado. Se o registro A apresontar o valor #00 no retorno, o arquivo foi 
criado com sucesso; já se apresentar o valor #FF, não existe mais espaço no diretório para a 
criação de um novo arquivo. 

Funçáo #17 : Esta função renomeia um ou mais arquivos. Na entrada, o par DE deve apon- 
tar para o FCB do arquivo ou arquivos (no caso do FCB conter o caractere coringa *?*) a se- 
rem renomeados. Na primeira posição do FCB, devemos colocar o drive (1-A, 2-B, etc.) do 
arquivo a ser renomeado, seguido do seu nome entre as posições 2 e 12. A partir da dócima 
oitava (FCB-f#1 1) posição, devemos colocar o novo nome que o arquivo receberá. Se o regis- 
tro A apresentar o valor #FF no retorno, o arquivo não foi encontrado; já se apresentar o valor 
#00, o arquivo foi encontrado e renomeado com sucesso. 

Funçáo #18 : Esta função retorna com os 16 bits do par HL setados de acordo com os drives 
presentes no sistema. Assim sendo, o bit 0 do L representa o drive A. o bit 1 o drive B e assim 
por diante, ató um máximo de 16 drives. 

Função #19 ; Esta função retorna no registro A com o número do drive default atual (0-A, 1 -B, 

etc.). 

Funçáo #1 A : Esta função define o endereço inicial do DMA. Na chamada, o par DE deve 
conter o endereço de memória a ser ocupado pelo DMA. No reset de disco (função #0D) e na 
inicialização do sistema, o DMA á ajustado automaticamente para o endereço #0080. 

Funçáo #1 B : Esta função retorna com algumas informações a respeito do disquete no drive 
a ser analisado. Na entrada, o registro E deve conter o número do drive (1 -A. 2-B, etc.). Se o 
registro A apresentar o valor #FF no retorno, a especificação feita para o drive não foi válida. 
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caso contrário, o registro A retorna com o número de setores por aglomerado, o par BC com 
o tamanho do setor em bytes (512 bytes), o par OE com o número total de aglomerados no 
disquete, o par HL com o número de aglomerados livres, o registro IY aponta para uma cópia 
da FAT do disquete na RAM e, por último, o registro IX aponta para uma área (BPB) na RAM 
que contém as informações necessárias sobre o disquete no drive analisado. 

Função #1 C : Esta função não está implementada no MSX-DOS. No CP/M, ela ativa a proteção 
contra escrita de um determinado disquete. 

Função #1 D : Esta função não está implementada no MSX-DOS. No CP/M. ela retorna no par 
HL com os drives protegidos contra gravação. 

Função #1E : Esta função não está implementada no MSX-DOS. No CP/M, ela retorna com 
os atributos (somente para leitura, etc.) do arquivo cujo FCB ó apontado pelo par DE. 

Função #1 F : Esta função não está implementada no MSX-DOS. No CP/M, ela retorna no par 
HL o endereço de memória onde estão os parâmetros do disquete no drive default. 

Função #20 : Esta função não está implementada no MSX-DOS. No CP/M. ela retorna com o 
código do usuário. 

Função #21 : Esta função ativa a leitura randômica de um registro do arquivo cujo FCB ó apon- 
tado pelo par DE. Ao ativar esta função pela primeira vez, devemos colocar nas posições 14 
e 15 (#0E e #0F) do FCB o tamanho do registro a sor lido. e nas posições de 32 a 36 (#20 a 
#24) o número do registro, começando pelo valor zero. Assim sendo, se quiséssemos ler o re- 
gistro 0 (primeiro registro) de um arquivo onde os registros apresentam o tamanho de um byte, 
teríamos de colocar na posição 14 do FCB o valor #00, na posição 15 o valor #01 e nas po- 
sições do 32 a 36 o valor #00. Se o registro A apresentar o valor #00 no retorno, a leitura foi 
bem-sucedida; se o valor for #01, foi lido o último registro do arquivo e, por último, se o valor 
for #02. houve problemas na loitura. 

Função #22 : Esta função ativa a gravação randômica de um registro para o arquivo cujo FCB 
ó apontado pelo par DE. Os parâmetros de entrada desta rotina são os mesmos da rotina #21 . 
Se o registro A apresentar o valor #01 no retorno, o disco não apresenta mais espaço livre pa- 
ra armazenamento; se o valor for #00, a operação foi completada com sucesso e. por último, 
no caso de qualquer outro valor, houve algum tipo de erro de gravação. 

Função #23 : Esta função retorna com o tamanho do arquivo nas posições de 32 a 36 do FCB 
apontado pelo par DE. Se o registro A apresentar o valor #00 no retorno, a operação foi com- 
pletada com sucesso; já se apresentar o valor #FF. o arquivo não foi encontrado. 

Função #24 : Esta função lé o próximo registro randômiço do arquivo cujo FCB é apontado 
pelo par DE. A leitura é feita após o incremento do número do registro no FCB. 

Função #25 : Esta função não está implementada no MSX-DOS. No CP/M, ela serve para rei- 
niciar o drive após uma parada prolongada ou uma troca de disquetes. 
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Função #26 :Esta (unção faz a gravação de vários roçjistros randômioos de uma só vez. Na 
entrada, o par DE deve, como sempre, apontar para o FCB do arquivo. Observe que, no caso 
de registros randômicos, existe um campo do FCB que indica o tamanho de cada registro e 
outro que indica o número do registro atual. Baseado no tamanho de cada registro e no núme- 
ro do registro atual contidos no FCB, o sistema grava um determinado número de registros 
passados pelo par HL. Se o registro A apresentar o valor #01 no retorno, não existo ospaço 
suficiente no disquete para gravação dos registros; já se apresentar o valor #00, a gravação 
foi bem-sucedida. Ao retornar da função, o par HL apresenta o número de registros efetiva- 
mento gravados. No caso de falta de espaço no disquete, o arquivo fica setado com o tama- 
nho dado pelo FCB dele. 

Funçáo #27 : Esta função faz a leitura de vários registros randômicos de uma só voz. Na en- 
trada, o par DE aponta para o FCB do arquivo, e o par HL contem o número de registros a ler. 
Para esta função valem os comentários feiios na função #26 sobre os campos do FCB rela- 
cionados aos arquivos randômicos. Se o registro A apresentar o valor #01 no retorno, foi en- 
contrado o fim do arquivo (EOF); já se apresentar o valor #00. foram lidos com sucesso todos 
os registros indicados por HL. Ao retornar desta função, o par HL apresenta o número de re- 
gistros lidos. 

Função #28 : Até o fechamento deste livro, não consegui encontrar uma utilidade prática pa- 
ra esta função que. ao que parece, funciona de modo semolhanto à função #22, embora preen- 
cha os bytes restantes do DMA (considerando um tamanho de 128 bytes para o DMA) com 
zeros. 

Função #29 : Esta função não está implementada no MSX-DOS. 

Função #2A : Esta função retorna com a data atual. O par HL contém o ano; o registro D o 
môs (1 «Janeiro. 2«Fevoroiro. etc.); o registro E o dia; o o rogistro A o dia da semana (0-Do- 
mingo, 1 -Segunda-feira, etc.). 

Função #2B : Esta função modifica a data atual. Os pares DE e HL deverão conter a infor- 
mação necessária, conforme descrito na função #2A. 

Função #2C : Esta função retorna com a hora atual. O registro H contém as horas; o L os mi- 
nutos; o D os segundos; e o E os centésimos de segundo. 

Funçáo #2D : Esta função acerta a hora atual. Os pares DE e HL deverão conter a informação 
necessária, conforme descrito na função #2C. 

Funçáo #2E : Esta função ativa e desativa a verificação de escrita. Infelizmente, varia de sis- 
tema para sistema, de modo que aconselho vocô a evitá-la. 

Função #2F : Esta função faz uma leitura direta de setores. Na entrada, o par DE deverá apre- 
sentar o número do primeiro setor a ler; o registro H o número de setores a ler;e o registro L o 
drive [QtJlrftm 0 , etc.) que contém o disquete a ser lido. Os setores serão colocados seqüen- 
cialmente a partir do DMA. No retorno, a flag de carry indica se houve ou não um erro de lei- 
tura (C-erro, NC-Sem erro). 
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Funçáo #30 : Esta função realiza uma gravação dos setores armazenados na memória a par- 
tir do DMA. Os parâmetros de entrada e de saida são exatamente os mesmos da função #2F. 


Apresentadas as funções, vamos passar à análise da estrutura do FCB no MSX-DOS (e, 
por tabela, no BASIC de Disco) que, como vimos, ó uma peça fundamental na manipulação 
dos arquivos. 


A ESTRUTURA DO FCB 

O FCB vem da abreviação de File Control Block, que em inglês quer dizer Bloco de Controle 
de Arquivo. O nome á bastante apropriado. A funçáo realizada por este pequeno buffer, que 
ocupa 36 bytes da memória RAM, ó a de controlar permanentemente as informações vitais de 
um arquivo: o tamanho e o tipo, a data e a hora de criaçào, etc. Vejamos, então, a sua estru- 
tura: 


Byte Função 

0 Número do drive: 0-defauft, 1 «drive A, 

2-drive B, etc. 

1 a B Nome do arquivo 

9 a 1 1 Extensão do arquivo 

12 Campo de extensão 

13 Reservado 

1 4 Valor LSB do tamanho do registro randômico 

1 5 Valor MSB do tamanho do registro randômico 

16 a 19 Tamanho do arquivo em bytes 

20 a 21 Data da criação ou modificação do arquivo: 

Bits F a 9-ano (0.1 980, 1 1 9-2099) 

Bits 8 a 5-môs (1 a 12) 

Bits 4 a 0«dia (1 a 31) 

22 a 23 Horário da criação ou modificação do arquivo: 

Bits F a B-horas (0 a 23) 

Bits A a 5-minutos (0 a 59) 

Bits 4 a 0-segundos (0*29) 

24 a 31 Reservados 

32 Número do registro relativo aos 1 28 bytes do 
bloco de um arquivo seqüencial 

33 a 36 Número do registro randômico 


Tabela 6. 1: A estrutura do FCB. 
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Para completar o conjunto de informações necessárias á construção de programas usan- 
do o sistema de disco, precisamos ter acesso a algumas informações contidas no setor de 
boot (o setor zero) do disquete. 


O SETOR DE BOOT NO MSX-DOS 

O setor de boot está organizado em duas áreas: uma área de dados, que se estende da 
posição 000 à posição #1 D. e uma área com a rotina de partida (boot), que se estende da po- 
sição #1 E em diante. Vamos começar pela área de dados: 


Byte 


Função 


ooo /» if iL 

003 a 00A 
00B 

ooc 

00D 

00E 

00F 

010 

#11 

012 

#13 

014 

#15 

#16 

017 

#18 

#19 

01 A 
#1B 
01C 
#1D 


Instrução de partida no DOS (utilizada 
no boot a quente) 

Nome do fabricante em ASCII. Esses 
bytos podem ser alterados pelo usuário 
Valor LSB do número de bytes por setor 
Valor MSB do número de bytes por setor 
Número de setores por aglomerado 
Valor LSB do número de setores reservados 
Valor MSB do número de setores reserva- 
dos 

Número de FATs usadas no disquete 
Valor LSB do número máximo de entradas 
no diretório 

Valor MSB do número máximo de entradas 
no diretório 

Valor LSB do número total de setores 
Valor MSB do número total de setores 
Identificação do tipo de formatação do 
disquete 

Valor LSB do número de setores por FAT 
Valor MSB do número de setores por FAT 
Valor LSB do número de setores por 
trilha 

Valor MSB do número de setores por 
trilha 

Valor LSB do número de faces do disco 
Valor MSB do número de faces do disco 
Valor LSB do número de setores ocultos 
Valor MSB do número de setores ocultos 


Tabela 6.2: Os dados no setor de boot 
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Se voei estranhares termos utilizados na Tabela acima, sugiro a leitura do livro mais com- 
pleto no assunto: Sistemas Operacionais do MSX & Suas Ferramentas, de Sérgio Guy Pi- 
nheiro Elias e Pauto Roberto Pinheiro Elias. Como você pode perceber, existem muitas 
informações contidas no setor de boot de um disquete. Infelizmente, o sistema MSX-DOS igno- 
ra por completo todas elas. O único byte de informação utilizado polo MSX-DOS ó o primeiro 
byte da FAT, que ó uma repetição do valor contido na posição #15 do setor de boot. A pre- 
sença de tais dados na rotina de boot foi mantida para permitir uma compatibilidade a nível de 
discos com o MS-DOS, utilizado na família IBM-PC. É realmento uma pena que o sistema MSX- 
DOS ignore tais dados, pois isso abriria a possibilidade de se formatar um disquete com 42 
trilhas e 10 setores por trilha, por exemplo. Embora o MSx-DOS não utilize tais dados, nada 
impede que nós façamos um uso Inteligente deles. As informações existam e são coerentes, 
logo, por que não utilizá-las? Suponha, por exemplo, que você deseje saber o setor inicial e o 
setor final do diretório de um determinado disquete. O que fazer? 

Simples: basta obter, em primeiro lugar, o número de setores ocultos e somá-lo ao resul- 
tado da multiplicação do número de FATs pelo número de setores por FAT, para obter assim 
o setor inicial do diretório. Vejamos o caso de um disquete de 5 1/4* de face dupla (360 Kb): 


Número de setores ocultos =1 

Número de setores por FAT = 2 

Número de FATS a 2 

Total de setores * 5 


Como o setor inicial recebe o número 0, o Inicio do diretório se situa no setor (0+5)«5. 'Já 
entendil Mas, como vamos achar o setor final do diretório?" Basta obter o número total de en- 
tradas no diretório, multiplicar esse número por 32. que 6 o número de bytes gasto por cada 
arquivo no diretório, e depois dividir o resultado por 51 2. que. por sua vez, ó o número de bytes 
por setor num disquete padrão MS-DOS (se você quiser ser mais rigoroso, também poderá 
obter este último valor das posições #0B e #0C do setor de boot). Vejamos esses cálculos no 
caso de um disquete do mesmo tipo usado no exemplo anterior: 


Número de entradas =112 

Bytes por arquivo no dlr. = 32 

Bytes por setor =512 


Número de setores gastos 

pelo diretório * (112'32)/512=7 


Logo, se o diretório se inicia no setor 5 e gasta 7 setores, então termina no setor 11. 
Conseqüentemente, os arquivos começam a ser armazenados a partir do setor 12. ‘Mas, qual 
é a utilidade de se saber o setor inicial e o setor final do diretório?' A utilidade aparecerá num 
programa para ordenação do diretório de qualquer disquete. Agora que já esgotamos a área 
de dados do setor de boot, vamos ao estudo da rotina de partida. 

A rotina de partida se inicia na posição #1 E do setor de boot e realiza as seguintes tarefas: 


1. Tenta localizar o arquivo MSXDOS.SYS ou equivalente (SOLXDOS.SYS. etc ). Para tanto, 
conta com um FCB (ou dois) desse arquivo. 
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2.Se conseguir localizar o arquivo de sistema no passo 1 , carrega esse arquivo a partir da po- 
sição #0100 da memória RAM. Ao terminar o carregamento, dá um salto ató a posição #01 00 
para executar o arquivo recóm-carregado. 

3.Se nâo conseguir localizar o arquivo de sistema, faz um desvio ató uma rotina na ROM da 
interface do drive para inicializar o BASIC de Disco. 


Como você pode perceber, a rotina da partida é extremamente simples. 'Mas, como é que 
o sistema chega a esta etapa?* Na verdade, quando o computador ó ligado o MSX inicia uma 
busca de cartuchos de expansão. Nessa busca, acaba encontrando um cartucho correspon- 
dente à interface do drive. Ao encontrar tal cartucho, o MSX ó levado a executar o programa 
contido na ROM dessa interface. Esse programa se inicia no endereço #4000. Após inicializar 
todas as variáveis a serem usadas pelo sistema de disco, o programa contido na ROM da in- 
terface habilita todo o Slot com 64 Kbytes de RAM e executa uma pequena rotina que ele mes- 
mo transferiu para a página 3 da memória RAM (entre os endereços #C000 e #FFFF). Essa 
rotina, na página 3 da memória RAM. tom como funçáo ler o setor 0 do disquete colocado no 
drive A. Para tanto, promovo a leitura do setor 0 o desloca a rotina de partida (contida a partir 
da posiçáo #1 E do setor 0) para o endereço #C000 da memória RAM. É a partir deste endereço 
que a rotina de boot ó executada. Após esta etapa, temos a realização dos passos 1, 2 e 3. 
descritos acima. 

Já estamos ficando mestres em sistema de disco, nào? Para terminar o nosso mestrado, 
só está faltando estudar a estrutura do diretório. 


A ESTRUTURA DO DIRETÓRIO 

O diretório 6. por assim dizer, um referencial dos arquivos contidos no disquete. Esta área 
ó extremamente importante para a manutenção da ordem dos arquivos armazonados nos dis- 
cos. Vamos então entender como está estabelecida a estrutura de uma entrada no diretório. 


Byte 

Funçáo 

#00 a #07 

Nome do arquivo 

#08 a #0A 

Extensão do arquivo 

#0B 

Byte de atributo 

#0C a #15 

Reservados 

#16 e #17 

Hora da criação do arquivo 

#18 e #19 

Data da criação do arquivo 

#1A e #1B 

Primeiro aglomerado do arquivo 

#1C a #1F 

Tamanho do arquivo 


Tabela 6.3: Estrutura de uma entrada no diretório 
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As posições #1 A e #1 B armazenam o número do primeiro aglomerado do arquivo, mas, o 
que vem a ser isso? O sistema de armazenamento de arquivos no MS-DOS e no MSX-DOS 
utiliza a chamada FAT (do inglês File Alocate Table - Tabela de Alocação de Arquivos). A FAT 
nada mais ê do que um mapa com a localização de todos os aglomerados que pertencem a 
um determinado arquivo. ‘Mas, o que ê um aglomerado?" Um aglomerado ó a menor partição 
lógica de um arquivo compreendida pelo sistema. No caso de disquetes de 5 1/4,* um aglo- 
merado equivale a um setor nos disquetes de lace simples, e a dois setores nos disquetes de 
face dupla. Desta forma, por exemplo, se gravarmos um arquivo com, digamos, 20 bytes, gas- 
taríamos 512 bytes num disquete de face simples e 1 024 num disquete de face dupla. Na FAT, 
um aglomerado aponta para outro aglomerado, e este, por sua vez, aponta para outro, e as- 
sim por diante, até chegar a um aglomerado que aponta para o aglomerado #FFF, que. por 
sua vez, não existe. Assim, o sistema fica sabendo que o aglomerado que apontou para #FFF 
ó o último do arquivo. Este 6 o funcionamento básico da FAT. Voftando à estrutura de uma en- 
trada no diretório, temos nas posições #1 6 e #1 7 a hora da criação do arquivo, e nas posições 
#18 e #19 a data da cnação dele. A codificação usada para esses valores ó a mesma utiliza- 
da no FCB. De todas as posições na estrutura de diretório, a mais intrigante e, infelizmente, 
não usada no MSX-DOS é a posição #0B, que contém o chamado byte de atributo. Vejamos 
a sua codificação: 


Bit 

Função 

0 

Se estiver setado (em 1), indica que o 
arquivo em questão é somente para leitura, o que im- 
plica no arquivo não poder ser apagado 
ou modificado. 

1 

Se estiver setado (em 1). indica que o 
arquivo em questão não aparecerá na listagem de dire- 
tório promovida pelo comando DIR ou FILES. 

2 

Se estiver setado (em 1), indica que ó um 
arquivo de sistema o como tal só poderá ser 
acessado pelo próprio sistema. 

3 

Se estiver setado (em 1), indica que o nome 
em questão não ó de um arquivo, mas sim o ró- 
tulo (labei) do disquete. 

4 

Se estiver setado (em 1), indica que o 
arquivo é na verdade, um subdiretórk). Este ó o único bit 
que o MSX-DOS reconhece, mas, mesmo assim, 
não aceita. Na listagem do diretório, o MSX-DOS 
coloca o sufixo DIR após o ncrme do arquivo. 

5 

Se estiver setado (em 1), indica que é um 
arquivo de dados, e não um programa. 

6 

Reservado 

7 

Reservado 


Tabela 6.4: Estrutura do byte de atributo 
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Infelizmente, o MSX-DOS não utiliza nenhum dos recursos permitidos pelo byte de atribu- 
to. Portanto, não noa interessa estudá-lo em maiores detalhes. Vamos passar, agora, à análise 
de alguns endereços úteis da RAM. 


ENDEREÇOS ÚTEIS DO BASIC DE DISCO 

Existem alguns ponteiros para buffors na RAM que podem nos fornecer informações pre- 
ciosas. Todos os ponteiros e endereços usados pelo sistema de disco se encontram acima do 
endereço #F200, sendo por este motivo muito úteis nos programas que utilizam o BASIC de 
Disco. Vale lembrar que os endereços abaixo sáo resultado de uma pesquisa pessoal (como 
foram quase todas as informações contidas neste e no próximo capitulo), de modo que não 
posso garantir que esses sejam todos os endereços usados pelo sistema de disco. Eventual- 
mente, podem existir mais endereços com outras informações, mas creio que aquelas forne- 
cidas pelos endereços aqui apresentados sáo mais do que suficientes. 


Endereço #F247 : Este enderoço oontôm o número do drive default. Se você quiser colocar 
o drive B como default, poderá entrar com a seguinte instrução em BASIC: 

POKE &HF247.1 


Se, depois, quiser retornar o drive A como default. entre com a soguinte instrução: 


POKE &HF247.0 




Endereço #F34 1 : Este endereço contém a identificação do slot (veja o Capitulo 5 para maiores 
esclarecimentos sobre o byte de identificação de slots) da página 0 (40000 a 43FFF) da 
memória RAM. 


Endereço #F342 : Este endereço contém a identificação do slot da página 1 (44000 a 47FFF) 
da memória RAM. 


Endereço #F343 : Este endereço contém a identificação do slot da página 2 (48000 a 4BFFF) 
da memória RAM. 

Endereço #F344 : Este endereço contém a identificação do slot da página 3 (4C000 a 4FFFF) 
da memória RAM. 

Endereço #F346 :Este endereço indica se o disquete com que foi feito o boot continha ou 
náo o sistema (MSXDOS.SYS). Se. no momento do boot. o sistema foi carregado, este en- 
dereço apresentará um valor diferente de #00, caso contrário, apresentará o valor #00. Supo- 
nha que vocè tenha dado o boot com um disquete sem sistema e, depois, queira carregar o 
sistema utilizando um outro disquete. Neste caso, o boot pelo primeiro disquete levou-o dire- 
to ao BASIC de Disco e inicializou este endereço com o valor #00. Desta forma, se você ten- 
tar o comando 

a s/t/ r 
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CALL SYSTEM 

o BASIC responderá com uma mensagem de erro. Mas, se vocô trocou 0 disquete sem siste- 
ma por um com sistema, podorá entrar com a seguinte seqüência da comandos para o siste- 
ma ser carregado: 

POKE &HF346.1 
CALL SYSTEM 

Endereço #F347 : Este endereço indica o número de drives lógicos instalados no sistema. Se 
você só possuir um drive físico, mas no momento do boot náo pressionou a tecla CONTROL. 
este endereço conterá o valor #02, indicando que existem #02 drives lógicos no sistema. Ago- 
ra. se você pressionou a tecla CONTROL durante o boot, este endereço conterá o valor #01. 
indicando que só existe um drive lógico. Se você possuir dois drives físicos (A e B) conecta- 
dos ao seu sistema, este endereço apresentará sempre o valor #02, a menos que antes do 
boot vocô desligue a alimentação do drive B e pressione a tecla CONTROL durante o boot. 

Endereço #F348 : Este endereço contóm a identificação do Slot onde se encontra a interface 
do drive (veja o Capítulo 5 para maiores esclarecimentos sobre a identificação dos slots). 

Endereço #F349 : Este endereço contêm um ponteiro para uma área de 3 Kbytes com uma 
cópia da FAT (1 ,5 Kbytes) do drive B, segutda de uta» cópia da FAT (1 ,5 Kbytes) do drive A. 

Pio*TGtA. - — - — * 

Endereço #F34D : Este endereço contém um ponteiro para uma área de 1 ,5 Kbytes com uma 
cópia da FAT do disquete no drive default. Se você quiser saber o endereço inicial desta cópia 
da FAT, entre com o seguinte comando: 

?HEX$<PEEK(&HF34D)+256*PEEK(&HF34E)) 

O resultado apresontado na tela indica o endereço inicial da cópia da FAT em RAM. 

Endereço #F34F : Este endereço contém um ponteiro para uma área de 512 bytes usada co- 
mo DMA do BASIC de Disco. Se você quiser saber o endereço inicial do DMA do BASIC de 
Disco, entre com o comando 

?HEX$<PEEK(&HF34F)+256*PEEK(&HF350)) 

O resultado apresentado na tela indicará o endereço. 

Endereço #F351 : Este endereço contém um ponteiro que aponta para uma área de 51 2 bytes 
na RAM, que é usada para a transferência de setores. Devido ao seu comprimento (51 2 bytes), 
a área apontada só pode receber um setor por vez. Se vocè quiser descobrir a localização do 
buHer de setores na RAM, entre oom o seguinte comando em BASIC: 

? HEX$(PEEK(&HF351)-f256'PEEK(&HF352)) 

O resultado apresentado na tela será o endereço inicial do buffer dos setores. 
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Endereço #F353 : Este endereço contém um ponteiro que aponta para uma área de 37 bytes, 
usada peio BASIC de Disco para armazenar o FCB do arquivo atual. Se vocô quiser descobnr 
o endereço inicial do FCB do arquivo atual, entre com o seguinte comando: 

? HEX$(PEEK(&HF353)+256'PEEK(&HF354)) 

O resultado apresentado na tela será o endereço inicial do buffer dos setores. 

Endereço #F355 : Este endereço contém um ponteiro que aponta para uma área de 21 bytes, 
que recebe o nome de BPB. O ponteiro neste endereço aponta para o BPB do drive A. Veja 
abaixo a descrição completa de todos os bytes desta área. Vale lembrar que as informações 
do BPB sáo atualizadas somente com o uso da função #1 B do BDOS. 


Endereço #F357 : Este endereço contém um ponteiro que aponta para o BPB do drive B (se 
existir). Permanecem válidas todas as observações feitas no endereço anterior. 


Uma vez apresentados os endereços e o significado dos respectivos conteúdos, vamos 
para a análise da estrutura do BPB. Não tenho a menor idéia do porquê deste nome, mas o 
conteúdo deste buffer de 21 bytes ó extremamente variado e útil, merecendo por isso mesmo 
um estudo mais detalhado. 


A ESTRUTURA DO BPB ( Bloco de Parâmetros da BIOS) 

O BPB ó um buffer de 21 bytes que armazena importantes informações sobre os disquetes. 
Vejamos o significado de cada byte ou par de bytes deste buffer. 


Byte 

too 

«01 


#02 a #03 
#04 e #05 

«06 


Função 

Número do drive - 1 (0-A, 1-B) 

Tipo de formatação. Os valores usados 
no MSX-DOS e MS-DOS são: 

#F8 3 1/2" face simples 

#F9 3 1/2" face dupla 

#FC 5 1/4" face simples 

#FD 5 1/4" face dupla 

Número de bytes por setor 
Não consegui chegar a uma conclusão 
sobre o conteúdo destes endereços 
Número de faces - 1 (0-face simples. 

1 -face dupla) 


Tabela 6.5: Estrutura do BPB 
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#07 

Númoro de setores por aglomerado 

#08 e #09 

Número de setores reservados 

#0A 

Número de FATs 

#0B 

Número máximo de entradas no diretório 

#0C e #0D 

Número do primeiro setor da área de 
armazenamento («número do setor final 
do diretório 1) 

#0E e #0F 

Número total de aglomerados no disquete 

#10 

Número de setores por FAT 

#11 o #12 

Número do primeiro setor do diretório 

#13 e #14 

Endereço da cópia da FAT em RAM 


Tabela 6.5: Estrutura do BPB(continuaçâo) 


Gostaria agora do apresentar alguns endereços úteis do MSX-DOS. 


ENDEREÇOS ÚTEIS DO MSX-DOS 

Existem alguns endereços do MSX-DOS que valem a pena mencionar. São eles: 


Endereço #0000 : Este endereço contóm um vetor para a partida a quente do MSX-DOS. Su- 
ponha que vocô queira sair de um programa e não tenha certeza dos estragos feitos na 
memória. Neste caso, seria conveniente sair com a instrução 

JUMP#0000 

que desviaria a execução para a rotina de partida a quente, e esta rotina, por sua vez. detec- 
taria a necessidade ou não de se recarregar o sistema. 

Endereço #0005 : Este endereço contóm o vetor para o BDOS. Vocô pode usar o conteúdo 
dos endereços #0006 e #0007 (endereço do salto para o BDOS) para descobnr a maior po- 
sição possível para o stack pointer (SP). Para tanto, basta f azer o registro SP igual ao conteúdo 
• 3 dos endereços #0006 e #0007. 

Endereço #0030 : Vetor para a rotina CALSLT (chamada de rotinas entre slots). 

Endereço #005C : Primeiro FCB do MSX-DOS. 

Endereço #006C : Segundo FCB do MSX-DOS. 

Endereço #0080 : Este endereço tem dupla função: armazena a linha de comando (a partir 
do endereço #0081 ) e serve como DMA para as transferências de e para o disquete. No caso 
da linha de comando, os caracteres lidos do teclado são armazenados a partir do endereço 
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#0081 . contando somente aqueles após o nome do programa. No endereço #0080 é armaze 
nado o número de caracteres após o nome do programa. Supondo que o usuário tenha entra- 
do com a linha 

WS CAPMSX-1.DOC 

os caracteres armazenados a partir do endereço #0081 serão: 

#0081 Espaço em branco 

#008? C 

#0083 A 

#0084 P 

#0085 M 

#0086 S 

#0087 X 

#0088 

#0089 1 

#008A 

#0088 0 

#008C O 

#008D C 

fcp J L 

Quando utilizarmos este como o endereço inicial do DMA. devemos ter em mente que o 
comprimento total do DMA não poderá ultrapassar os 128 bytes, ou seja, o DMA deverá si- 
tuar-se entre os endereços #0080 e #00FF. já que a partir do endereço #0100 temos o início 
do programa COM carregado na memória. 

Para completar a nossa viagem pelo sistema de disco, gostaria de apresentar três rotinas 
úteis: uma rotina para a leitura e gravação de setores, ativada pela BIOS do MSX; uma rotina 
para inicialização do BASIC de Disco; e uma rotina para provocar a parada do drive. 


ALGUMAS ROTINAS ÚTEIS 

Como vocô já sabe. todas as rotinas para o acesso ao drive estão contidas numa ROM de 
16 Kbytes na interface do drive. Além de todas as rotinasrtunçôes apresentadas adma, exis- 
tem trôs rotinas que merecem destaque. Na Tabela 6.6 abaixo, temos os parâmetros para o 
acesso de tais rotinas. 


Nome da rotina : PHYDIO 

Endereço Inicial : #01 44 

Modo de chamada : CALL 

Parâmetro* de entrada : HL-endereço da RAM a partir 

do qual serão colocados 
os setores lidos 


Taba/a 6 . 6 : Rotinas úteis do sistema de disco 
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Parâmetros de salda 

DE -número do primeiro setor 
a ser lido 

B -número de setores a ler 
C -parâmetro de formatação 
do disquete. Este parâ- 
metro obedece àqueles mos- 
trados na posição #01 do 
BPB 

A -número do drive (0-A, 

1-B. etc.) 

Flag de carry-se desejarmos 
efetuar uma leitura, esta 
flag deverá estar rose- 
tada; já se desejarmos 
efetuar uma gravação, de- 
vemos setá-la 
: Flag de carry-se estiver 

Registros alterados 

selada, houve algum tipo 
de erro (de leitura ou 
gravação, dependendo do 
caso) 

: Todos 

Nome da rotina 

: INIBAS (dado por mim) 

Endereço de entrada 

: #4022 (no slot da interface 

Modo de chamada 

do disco) 

: Por intermádio de CALSLT 

Parâmetros de entrada 

: Nenhum 

Parâmetros de salda 

: Nenhum 

Registros alterados 

: Todos 

Nome da rotina 

: STPDRV (dado por mim) 

Endereço Inicial 

: #4029 (no slot da interface 

Modo de chamada 

do disco) 

: Por intermédio de CALSLT 

Parâmetros de entrada 

: Nenhum 

Parâmetros de salda 

: Nenhum 

Registros alterados 

: Todos 


Tabela 6.6: Rotjnas úteis do sistema de disco(continuação) 


A rotina PHYDK) ó bem simples, e já foi inclusive usada por nós no programa 28 do Capítu- 
lo 5. A rotina INIBAS será bastante útil se vocô quiser promover uma volta ao BASIC a partir 
de um programa em execuçáo no MSX-DOS. A rotina STPDRV (StopDrive) pára o motor do 
drive. Esta rotina á muito útil no inicio de programas como os jogos que desabilrtam por comple- 
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to as interrupções, impedindo assim a parada do drive, que ó feita através de um desvio do 
hook HTIMI. 

Terminada a teoria, vamos às listagens de alguns programas que permitem uma ilustração 
do uso dos conceitos vistos anteriormente. 


O PROGRAMA QUE IMPLEMENTA 
OS COMANDOS FINDFIRSTE FINDNEXT 

Este programa é uma continuação do programa de implementação de novos comandos, 
que viemos incrementando desde o Capítulo 3. A principal funçào deste programa é demons- 
trar o uso de duas funções do BDOS: a função #1 1 , que procura o primeiro arquivo, e a função 
#12, que procura o arquivo seguinte. Vamos então às listagens. 


Listagem em assembly Z-80 do còdlgo-fonta do programa que Implementa os coman- 
dos FINDFIRST e FINDNEXT: 

;programa que implementa os comandos FINDFIRST e FINDNEXT 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

I 

;GEN80 PROG29 BIN-PROG29.GEN 

t 

;onde PROG29.GEN ó o nome do arquivo-texto com esta 


;listagem 



versão 

equ 

#002d 

gtstck 

equ 

#00d5 

gttrig 

equ 

#00d8 

kilbuf 

equ 

#0156 

linlen 

equ 

#f3b0 

txtnam 

equ 

#f3b3 

txtcgp 

equ 

#f3b7 

caibas 

equ 

#0159 

chrgtr 

equ 

#4666 

evlexp 

equ 

#520e 

getcrd 

equ 

#579c 

varsrc 

equ 

#5ea4 

anfile 

equ 

#6a0e 

dridef 

equ 

#f247 

dma 

equ 

#f34f 

fcb 

equ 

#1353 

bdos 

equ 

#137d 

crtcnt 

equ 

#f3b1 
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errllg 


equ 

#f414 

valtyp 


equ 

#1663 

savtxt 


equ 

#16af 

scrmod 


equ 

#fcaf 

grpacx 


equ 

#fcb7 

grpacy 


equ 

#lcb9 

hkeyi 


equ 

#ld9a 

herro 


equ 

#ffb1 


defb 

#1e 

;simula em CP/M 


defw 

inicio 

;o cabeçalho de 


defw 

fim-orro+rotina+#01 




;um arquivo 


defw 

inicio 

;.BIN 


org #d000 


inicio 

di 

in a,(#a8) 

ld b.a 

and #10 

rrca 
rrca 
rrca 
rrca 
or 
out 
and 
ld 
ld 
ld 
ld 
ld 
Idir 
ld 
ld 
ld 
Idir 
out 
ei 
ret 


dasabilita as interrupções 
lô a atual configuração dos 
slots e prepara para ativar 
a página 1 do Slot da RAM 


ativa as páginas 1 , 2 e 3 em 
RAM e descobre o slot onde 
se encontram os 64Kb de RAM 
a-config. inicial dos slots 
promove o desvio do hook 
dos erros 


transfere a rotina para a 
página 1 da RAM 


habilita a contig. original 
habilita as interrupções 
retorna ao BASIC 


b 

(#a8),a 

#03 

(stot),a 

a.b 

hl.novohook 

de.herro 

bc,0005 

hl, rotina 
de, erro 

bc,fim-erro+#01 

(#a8),a 


defb #17 


novohook 


;RST #30 
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Slot 

dofb 

#00 

;identificação do Slot 


defw 

erro 

;ondoreço do dosvio 


defb 

#c9 

;RET 


rotina 

org 

#4000 


erro 

push 

ai 

salva os registros afetados 


push 

bc 



push 

de 



push 

hl 


examorro 

ld 

a.e 

a-código do erro 


cp 

#02 

é erro de sintaxe? 


JP 

nz.aborta 

Não, volta ao BASIC 

peg achar 

ld 

hl.(savtxt) 

Sim, obtém a posição do 
ponteiro do BASIC 


ld 

a.(hl) 

ó final de linha? 


or 

a 

# 


ÍP 

nz, proxchar 

Não, obtém o próximo carac. 

pula 

inc 

hl 

Sim, pula as 4 posições 


inc 

hl 

referentes ao número da 


Inc 

hl 

linha e ao end. da próxima 


inc 

hl 

linha 

proxchar 

ld 

ix.chrgtr 

obtém o primeiro caractere 


ca II 

chamabasic 

do novo comando 

compara 

call 

compstring 

compara com a lista de novos 
comandos 

aborta 

pop 

hl 

recupera os registros salvos 


pop 

de 



pop 

bc 



pop 

af 



ret 


retorna ao BASIC 


;a rotina compstring ó a responsável pela localização da 
;rotina do novo comando 

compstring 

ld (auxiliar).hl ;satva o pont. do BASIC 

ld hl. lista ;hl aponta p/ lista de 

;comandos 

ld bc.endlista-lista 


;bc-tamanho da lista 
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compsirl 

ld 

de.(auxiliar) 

;de aponta p/ comando em 
.BASIC 


ld 

cpir 

a, (de) 

;obtém o primeiro byte 
;tenta encontrá-lo na 
;lista 


ÍP 

po.naoachei 

,se bc-0 -> nâo achou 

compstr2 

inc 

de 

;achou o primeiro e 
parte 


W 

a, (de) 

;para a comparação dos 


cp 

(hl) 

;demais caracteres. Vai 
;para 


jp 

nz.compstrl 

;compstr1 se achar um 
;byte dilerente. 


inc 

hl 

;Caso contrário, 


ld 

a,(hl) 

;continua até o fim do 
;comando. 


cp 

«00 

;So chegou ao fim e, 


JP 

z.achei 

;então, achou o comando 
;na lista. 


ÍP 

compstr2 

;Caso contrário, compara 

naoachei 

ret 


;o próximo byte. 

achei 

inc 

hl 

;Se achou, obtém o 
;enderoço 


ld 

c.(hl) 

;de entrada da rotina. 


inc 

hl 

;colocando-o em BC 


ld 

b.(hl) 

• 


pop 

af 

;retira da pilha o 
;endereço de 


push 

bc 

;rotorno para a rotina 
;erro e 

;coloca na pilha 0 
;endereço de 
;entrada da rotina do 
;novo comando 


ld 

(auxiliar), de 

;guarda o ponteiro 
;do BASIC 


ex 

ret 

de.hl 

transfere o ponteiro 
;para HL 

;usa RET para dar um 
;jump 

para o endereço contido 
:BC que foi salvo na 
pilha 
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;a rotina lecomandos ó a responsável pela interpretação dos 
;valores qua se seguem ao nome do novo comando. Os valores 
;devem estar separados por vírgulas. Na entrada,o par IX 
;aponta para uma tabela com valores default, e o registro B 
;contèm o número de valores a interpretar 

lecomandos 



push 

ix 

;salva o par IX 

lecoman_1 

push 

ix 



ld 

ix.chrgtr 

;obtóm um valor 


ca II 

chamabasic 



pop 

ix 

;recupera o ponteiro IX 


k 

z.lecoman 4 

;Se não houver valor, vai para 




;!ecoman_4 


cp 

• • 

;ô vírgula? 


V 

z.lecoman 3 

;Sim. assume o default 


dec 

hl 

:Não, obtém o valor 


push 

ix 

isalva o ponteiro 


push 

bc 

;salva o contador 


ld 

ix.evlexp 

, obtém o valor 


call 

chamabasic 

9 


pop 

bc 

;recupera o valor 


pop 

ix 

;recupera o ponteiro 


ld 

a,e 

;a-valor interpretado 


ld 

(ix+#00),a 

;coloca-o na tabela 

lecoman_3 

inc 

ix 

;incrementa o ponteiro 


djnz 

lecoman__1 

;repete para os demais 




rvalores 

lecoman 4 

pop 

ix 

;recupera o ponteiro salvo 


ret 


;retorna 


;a rotina erro_Oã emite a mensagem de chamada ilegal 
erro_05 

ld a, #05 ;a-código do erro 

kJ (erdlg),a :salva o erro em errflg 

jr vottaerro ;vai para voHaerro 


;a rotina erro_13 emite a mensagem de tipo incompatível 
erro_13 

ld a, 13 ;a -código do erro 



osirrtMAüos 2 *n 


ld (errflg),a ;salva 0 erro em errtlg 

jr voltaerro ;vaí para voltaerro 


;a rotina voltaerro substitui o erro original por um outro 
voltaerro 


pop 

hl 

;recupera os pares 

pop 

de 

;salvos no início da 

pop 

bc 

;rotina erro 

pop 

aí 


ld 

a.(errflg) 

;a«erro a ser emitido 

ld 

e.a 

;e-erro a ser emitido 

ret 


;vo!ta para a rotina 



;de manipulação de erros 



;do interpretador BASIC 


;a rotina volta promove a volta ao BASIC sam que haja 
jinterrupçâo no processamento, ou seja, sem que 0 sistema 
idetecte 0 erro ocorrido 

volta 


dec 

hl 

;hl aponta para o íinal 
;do último comando 

xor 

a 

;modifica para nenhum erro 

ld 

(errflg),a 

;ocorrido 

pop 

de 

;recupera os registros 

pop 

de 

;salvos no início da rotina 

pop 

bc 

;erro. Note que hl não ó 

pop 

af 

;recuperado. 

pop 

de 

;obtém 0 end. de retorno da 
;nossa rotina para a rotina 
;o chaveamento de slots 

pop 

bc 

;obtém 0 end. de retorno da 
;rotina de chaveamento do 
;sk)ts para RST #30 

pop 

aí 

;obtém 0 end. de retorno de 
;RST #30 para 0 hook 

pop 

ix 

;obtóm/deslrói 0 end. de 
;retorno do hook para a 
; rotina 

;de erro do interpretador 
;BASIC 

pop 

rx 

;Obtém/dostrói 0 end. de 
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chamabasic 


inverta 


rotinversao 


push 

af 

push 

bc 

push 

de 

ld 

ix.chrgtr 

ÍP 

chamabasic 

ret 



call 

caibas 

ret 



ld 

b.#04 

ld 

ix.tabinver 

call 

lecomandos 

ld 

(auxiliar), hl 

call 

rotinversao 

ld 

hl.(auxiliar) 

jP 

volta 


ld 

a.(nu#00) 

ld 

(grpacx), a 

ld 

a.(ix+#01) 

ld 

(grpacy), a 

ld 

a.(ix+#02) 

ld 

(compstr).a 

cp 

33 

JP 

nc.erroinv 05 

ld 

a.(ix+#Q3) 

or 

a 

V 

z.invertoO 

ld 

a, (inversão) 

or 

a 

jr 

z. inverteO 

ld 

a.(bufnor) 

or 

a 

ir 

z, inverteO 

ld 

hl,(bufnor+#Ol) 

call 

setvdpwt 


;rotorno 

;da rotina do orro para o 
;interpretador BASIC 
;repoe na pilha os ond. de 
;retorno salvos nestes 
;rogi$tros 

;faz com quo hl aponte 
;para o próximo comando 
;e retorna ao BASIC 


;chama a rotina caibas 
;rotorna 


;b»núm. do valores 
;ix=tabela default 
;lè os 4 valores 
;salva ptr. do BASIC 
;chama a rotina de 
;inversfto 

.recupera ptr. do BASIC 
.volta para o BASIC 


;obtóm coord. x 
;satva em grpacx 
;obtôm coord. y 
;salva om grpacy 
;obtém o comp. da string 
;salva em compstr 
;é >- 33? 

;Sim. chamada ilegal 
;a-flag do rocuperaçáo 
;está setada? 

.Não. vai para inverteO 
;Sim. já (oi feita alguma 
;inversâo? 

,Não. vai para mvertoO 
;Sim, obtém o compnmento 
;da string. 

;ô zoro? 

:Sim, vai para inverteO 
;Não, obtém a pos. da string 
;antiga e prepara o VDP 
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invertoO 


inverte3 


loopinvl 


Ioopinv2 


ld 

hl,bufnor+#03 

ld 

a.(butnor) 

ld 

b.a 

call 

esclinha 


ld 

hl, (auxiliar) 

ld 

a.(compstr) 

or 

a 

jP 

z.voltainv 

ld 

ix.bufnor 

ld 

iy.bufinv 

ld 

(ix+#00),a 

ld 

(iy+#00),a 

call 

calpadvid 

ld 

a.(grpacx) 

ld 

e.a 

ld 

a, (colunas) 

cp 

e 

jP 

c,erroinv_05 

ld 

a.(grpacy) 

cp 

24 

ÍP 

nc.erroinv_05 

call 

di 

lefraso 

ld 

hl.(tabpad) 

push 

hl 

ld 

de.#e0*8 

add 

hl.do 

ex 

de.hl 

ld 

C.#eO 

ld 

b,(ix+400) 

ld 

ix,bufnor+#03 

ld 

ry,bu1inv+#03 

pop 

hl 

push 

bc 

push 

hl 

push 

do 

ld 

de.00008 

ld 

b,(ix+#00) 

add 

hl.de 

djnz 

kxjpinv2 

pop 

de 

ld 

b.#08 


;hl >inlcio da string ant»ga 
;a«comp. da string antiga 
•,a*comp. da string antiga 
.escreve a string antiga 
;no modo normal 

;hl-ponteiro do BASIC 
;a»comp. da string 
pomprimonto-O? 

;Sim, volta sem erro 
;Não, ajusta OS butters 
para a string normal e 
para a string invertida 
;com o comprimento da 
palcula os padrões do vídeo 
.obtém a coord. x 
.coloca em e 

pbtém o número de colunas 
•pompara com o valor lido 
;Se valor lido > colunas. 

;volta com erro 
pbtém a coord. y 
;é maior do que 23? 

;Sim. volta com erro 
;lè a string a invertor 
.dosabilita as intorrupções 
;hl-end. da tab. de padrões 
;salva o end. da tab. de 
padrões 

palcula o endereço do 
;desenho do caractere #e0 
;de-end. do des. do carac. #o0 

p-#eO 

;b-número de carac. da string 

;ix»end. da string normal 

;iy-end. da string invertida 

.recupera hl 

;salva bc 

;salva hl 

;salva de 

.bytes para 0 desenho de cada 
paractere 

;b«caractere a inverter 
palcula o endereço desse 
paractere 
;recuperade 
prepara a modrficaçáo 
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kx>pinv3 

call 

cpl 

rdvram 

;lô o byte original 
;invoria 


ex 

da, hl 

itransfere para o novo 


call 

wtvram 

idestino 


ex 

do.hl 

• 


inc 

hl 

;hl-hl+1 


inc 

de 

;de=de+1 


djnz 

loopinv3 

;b*b-1 


pop 

hl 

;rocupera hl 


pop 

bc 

;recupora bc 


ld 

(iy+#00).c 

;modifica a stríng 


inc 

c 

;c-c+1 


inc 

inc 

bc 

iy 

;aponta para o próximo carac 


djnz 

loopinvl 

;ropete até o fim da string 

envinvert 


ld 

ry.bufinv 

;recupera o ponteiro do 
ibuffor 


ld 

l.(iy+#01) 

;hl»end. do escrita da string 


ld 

h.(iy+#02) 

• 


call 

setvdpwt 

.ajusta o VDP para escrita 


ld 

b,(iy+#00) 

;b«núm. de carac. da string 


ld 

hl,bufinv+#03 

:end. da string 


call 

osclinha 

;escreve a frase invertida 


ld 

a.#f f 

;sinali7a uma inversão 


ld 

oi 

ret 

(inversao).a 

f 

;habilita as interrupções 
iretorna 

erroinv_05 


pop 

af 

idestrói o end. de retorno 


ÍP 

erro .05 

;vai para erro_04 

voltainv 


pop 

af 

idestrói a pilha 


ÍP 

volta 

ivolta para o BASIC 

tabinver 


dofb 

#00 

posição x 


defb 

#00 

.posição y 


dofb 

#00 

icomprimento 


dofb 

#00 

.■fiag de restauração 

newcls 


ld 

b.#02 

;b-núm. de valores 
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kJ 

ix.tabnewds 

;ix->tab. de valores default 

call 

lecomandos 


ld 

(auxillar).hl 

;salva o ponteiro do BASIC 

ld 

a,(ix+#00) 

;obtém o primeiro valor 

cp 

#02 

verifica o limite 

IP 

nc,erro_05 

;se estiver fora, volta com 



;erro 

call 

calpadvid 

;calcula os padrões do vídeo 

ld 

a,(coluna5) 

;obtém o número de colunas 

ld 

e, a 

ie-número de colunas 

ld 

a,(ix+#01) 

;a«número de rotações 

Inc 

e 


cp 

e 

;rotações>colunas? 

ÍP 

nc,erro_05 

;Sim, volta com erro 

or 

a 

;Zero rotações? 

ÍP 

z, volta 

;Sim, volta sem erro 

ld 

a,(ix+#00) 

;a«tipo de rotação 

or 

a 

;é zero (esquerda)? 

ÍP 

nz.newcls_0 

;NSo, vai para newcIs O 


;newcls_1 faz o cis com 

rotação para a esquerda 

newcls_1 

di 


«desabilita as interrupções 


ld 

b,(ix+#01 ) 

;b-número de rotações 

loopclsj 1 

push 

bc 

;salva o contador externo 


M 

hl.(txtnam) 

;hl-end. tabela de nomes 


ld 

a, (colunas) 

;a-núm. de colunas 


ld 

e.a 

;de-núm. de colunas 


ld 

d,#00 

j 


ld 

a.(crtcnt) 

;a-número de linhas 


ld 

b.a 

;b-número de linhas 

loopcls12 

push 

bc 

;salva contador intermediário 


call 

setvdprd 

prepara o VDP para leitura 


ld 

a. (colunas) 

;a-núm. de colunas 


push 

de 

;sa!va de 


push 

hl 

;salva hl 


ld 

hl.bufferlinha 

;hl aponta para o buffer 


ld 

b,a 

;b-núm. de colunas 


call 

lelinha 

;lô uma linha 


ld 

a, #20 

;a-carac. espaço em branco 


ld 

(hl), a 

;coloca o espaço na últ. pos. 
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pop 

hl 

;recupera hl 

pop 

de 

;recupera de 

call 

setvdpwt 

;prepara o VDP para escrita 

push 

de 

:salva de 

push 

hl 

;salva hl 

ld 

hl.buffertinha+1 

;hl aponta para o buffer+1 

kJ 

a. (colunas) 

;a-núm. de colunas 

(d 

b,a 

;b-núm. de colunas 

call 

esdinha 

;envia a linha já rotada 

pop 

hl 

;rocupera hl 

pop 

de 

;recupera de 

add 

hl.de 

;hl aponta para a próx. linha 

pop 

bc 

;recupera bc 

djnz 

k>opcls_l2 

:repete para as demais linhas 

pop 

bc 

;recupera bc 

djnz 

kx>pcls_1 1 

;repete ató terminar todas 

ei 

ld 

hl.(auxiliar) 

;as rotações 

;habilita as interrupções 

;recupora o ponteiro do BASIC 

IP 

volta 

;retorna ao BASIC 


;newcls_0 faz o cis com 

rotação para a direita 

newcls_0 

di 


;desabilita as Interrupções 

kxjpcIsOl 

ld 

b,(ix+#01) 

;b-número de rotações 


push 

bc 

;salva contador externo 


ld 

hl.(txtnam) 

;hl-end. tabela de nomes 


ld 

a. (colunas) 

;a-núm. de colunas 


ld 

e.a 

;de-núm. de colunas 


ld 

d, #00 

f 


ld 

a.(crtcnt) 

;a-número de linhas 


ld 

b.a 

;b»número de linhas 

k>opcl$_02 

push 

bc 

;salva contador intermediário 


call 

setvdprd 

iprepara o VDP para leitura 


ld 

a, (colunas) 

;a«núm. de colunas 


push 

de 

;salva de 


push 

hl 

;sah/a hl 


ld 

hl.bufferfinha+1 

;hl aponta para o buífer+ 1 


ld 

b.a 

;b-núm. de colunas 


call 

lelinha 

;lè uma linha 


ld 

a. #20 

;a-carac. espaço em branco 


ld 

hl.buíferlinha 

;hl aponta para o buffer 
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ld 

(hl).a 

.coloca o espaço na prim. 



posição 

pop 

hl 

;recupera hl 

pop 

de 

;recuperade 

call 

sotvdpwt 

prepara o VDP para escrita 

push 

de 

;satva do 

push 

hl 

;salva hl 

ld 

hl.bufferlinha 

;hl aponta para o butfer 

ld 

a, (colunas) 

;a«núm. da colunas 

ld 

b.a 

,b-núm. de colunas 

call 

esclinha 

;envia a linha já rotada 

pop 

hl 

;recupara hl 

pop 

de 

;recupera de 

add 

hl, do 

;hl aponta para a próx. linha 

pop 

bc 

;rocupera bc 

djnz 

loopcls_02 

:ropeto para as domais linhas 

pop 

bc 

, 'recupera bc 

djnz 

loopcls_01 

;repete até terminar todas 



;as rotações 

ai 


;habilíta as interrupções 

ld 

hl, (auxiliar) 

;recupora o ponteiro do BASIC 

íp 

volta 

.retorna ao BASIC 


tabnewcls 

defb 

#00 

:tipo de cis 


defb 

#00 

;número de rotações 


window 



ld 

ix.tabwindow 

ix aponta p/ tabela 

ld 

b,#05 

b-núm. de comandos 

call 

lecomandos 

lô as coordenadas 

ld 

(auxiliar), hl 

salva o ptr. do BASIC 

call 

calpadvid 

calcula os parâmetros 
do vídeo 

ld 

ix.tabwindow 

ix aponta p/ tabela 

ld 

h,(ix+#00) 

h-xl 

ld 

l,(ix+#01) 

Lyl 

ld 

d,(ix+#02) 

d-x2 

ld 

e,(ix+#03) 

e«y2 

ld 

a.h 

testa se x2>x1 

cp 

d 


jp 

nc,erro_06 

x2<-x1->erro 

ld 

a,l 

testa se y2>y1 
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Cp 

a 

t 

ÍP 

nc,erro_05 

,y2<»y1->arro 

Id 

a.e 

;a-y2 

cp 

24 

y2>- 24? 

ÍP 

r>c.erro_05 

;Sim, volta com erro 

ld 

a, (colunas) 

;a»colunas na tela 

doe 

a 


cp 

d 

;x2>*colunas? 

IP 

c,erro_05 

:Sim, volta com orro 

ld 

a,(ix+#04) 

;a-tipo do apresentação 

or 

a 

;ó zero? 

IP 

nz.zoom 

;Não, vai para zoom 

call 

lanela 

;Sim, chama janela 

windvolta 



ld 

hl, (auxiliar) 

;hl«ponteiro do BASIC 

ÍP 

volta 

ivolta para o BASIC 


;A rotina zoom cria o ofoito da explosão da janela 

zoom 



xor 

a 

;zara o acumulador 

ld 

(bufcol).a 

£era o buffar da coluna 

ld 

(buflin).a 

;zora o buffer da linha 

ld 

(cororl).hl 

;sa!va as coordenadas xl.yl 

ld 

(coror2).de 

;salva as coordenadas x2,y2 

ld 

a.h 

;carraga a com h (xl) 

add 

a, d 

;soma com d (x2) e divide 

srl 

a 

;por dois para achar Xmedio 

dec 

a 

:decrementa Xmedio 

ld 

h.a 

;carrega h (xl) com Xmedio 

inc 

a 

;incrementa o ponto médio 



para que 

Inc 

a 

;x2«x1+1, onde xl «Xmedio- 1 

ld 

d.a 

parrega d com x2 

ld 

a.l 

;a-y1 

add 

a, a 

;soma com e (y2) e divide 

srl 

a 

;por dois para achar Ymedio 

dec 

a 

;decrementa Ymedio 

ld 

l.a 

parrega 1 (yl ) com Ymedio 

inc 

a 

jincrementa o ponto médio 



para que 

inc 

a 

y2»y1+1, onde yl-Ymedio-1 

ld 

e.a 

;carrega e com y2 

call 

janela 

;desenha a primeira janela 
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looptest 

call 

coluna 

.verifica em rei. à coluna- 
;limite 


call 

linha 

verifica em rei. à linha- 
;limite 


call 

janela 

.desenha a janela 


call 

espjanela 

•.retardo para tornar o eleito 
.visível 


call 

teste2 

.verifica se já chegou à 
;janela final 


K 

nz, looptest 

;Nào. continua com a explosão 


W 

hl.(cororl) 

;imprime a janela final 


kJ 

de.(ooror2) 

J 


call 

janela 

• 


JP 

windvolta 

;retorna ao BASIC 


coluna 

ld 

a.(cororW#01) 

iaacoord. xl original 


cp 

h 

;|á foi atingida? 


\t 

nc.fi mcol 

;Sim, vai para fimcol 


dec 

h 

;Nào, xl -xl -1 


inc 

d 

*2«x2+1 


ret 


;retorna 

fimcol 

ld 

a, #01 

;indica que a coluna-limite 


ld 

(bufcol).a 

.foi atingida 


ret 


;retorna 

linha 

ld 

a.(cororl) 

;a-coord. yl original 


cp 

1 

;já foi atingida? 


K 

nc.fimlin 

;Sim, vai para fimlin 


doc 

1 

;Nâo. y 1 — y 1 -1 


inc 

e 

^2-y2+1 


ret 


;retorna 

fimlin 

ld 

a. #01 

;indica que a linha-limite 


ld 

(buflin).a 

;foi atingida 


ret 


;retorna 

espjanela 

push 

af 

;salva os registros 


push 

hl 

;afetados 


ld 

hl,#1000 

;altero este valor para mudar 

espjanelal 

dec 

hl 

;o retardo. Decrementa hl 


ld 

a.h 

verifica se chegou 


or 

1 

;ao fim 


Jr 

nz, espjanelal 

;Não, volta para espjanelal 


pop 

hl 

;recupera os registros 


pop 

af 




298 Guia do Programador MSX 
CAPA 


ret ,e retorna 

teste2 ld a.(bufcot) verifica se a coluna- 

cp #01 ;limite foi atingida 

jr z.contes ;Sim, vai para contas 

rot ;Nào, retorna 

contes kf a.(buflin) ;verifica se a linha- 

cp #01 ;limite foi atingida 

rat ;retorna. Flag Z será o 

;indicador. 


:a rotina janela ó a responsável pelo desenho da própria 


Ijanela no video 
janela 

push bc 

push de 

push hl 

ca II posit 

kf a.d 

sub h 

dec a 

ld b.a 

push bc 

ld a, #18 

out («98). a 

ex (sp).hl 

ex (sp).hl 

janell ld a,#17 

out (#98). a 

ex (sp),hl 

ex (sp).hl 

djnz janell 

ld a, #19 

out (#98), a 

pop bc 

ld l.e 

call posit 

ld a,#1a 

out (#98), a 


salva todos os rogistros 
alterados pela rotina 

posiciona o cursor em xl ,y1 

a-x2 

a-x2-x1 

a-núm. do pos. da linha do 
topo 

b«múm. de pos. da linha do 
topo 

salva núm. pos. da linha do 
topo 

a-carac. do canto sup. osq. 
escreve o caractere 
demora para sincronização 

a-traço horizontal 
escreve a linha superior 
demora para sincronização 

a-carac do canto sup. dir. 
escreve o caractere . 
recupera núm pos. linha do 
topo 
Uy2 

coloca o cursor em xl ,y2 
a=carac do canto inf. 
esquordo 

escreve o caractere 
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janal2 


janel3 


janel4 


ex 

(sp).hl 

demora para sincronização 

ex 

(sp).hl 


td 

a,#17 

a-traço horizontal 

out 

(#98), a 

escrevo a linha inferior 

ex 

(sp).hl 

demora para sincronização 

ex 

(sp),hl 

, 

djnz 

janel2 


kJ 

a,#1b 

a-carac. do canto inf. dir. 

out 

(#98), a 

escreve o caractere 

pop 

hl 

recupera xl.yl 

pop 

de 

recupera x2,y2 

push 

de 

salva x2,y2 

push 

hl 

salva xl.yl 

ld 

a.e 

a«y2 

sub 

1 

a-y2-yt 

dec 

a 

a-núm. de pos. verticais 

td 

b,a 

b-núm. de pos. verticais 

ld 

a, d 

a-x2 

sub 

h 

a-x2-x1 

dec 

a 

a-núm de pos. horizontais 

ld 

c.a 

c-núm. de pos. horizontais 

inc 

1 

yl-yl+1 

call 

posit 

posiciona o cursor 

ld 

a, #16 

a*traço vertical 

out 

(#98).a 

escrevo o caractere 

push 

bc 

salva núm. de pos. verticais 

ld 

b.c 

b-núm. de pos. horizontais 

ld 

a, #20 

a-caractere espaço em branco 

out 

(#98),a 

escreve o carac. para limpar 

ex 

(sp),hl 

demora para sincronização 

ex 

(sp).hl 


djnz 

janel4 

a janela 

ld 

a, #16 

a-traço vertical 

out 

(#98). a 

escreve o caractere 

inc 

1 

yl-yl+1 

pop 

bc 

recupera núm. de pos. 
verticais 

djnz 

janel3 

repete até acabar as linhas 
vert. 

pop 

hl 

recupera os registros salvos 

pop 

de 


pop 

bc 


ret 


e retorna 

defb 

#00 

coordenada xl 


tabwindow 
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defb 

#00 

;coordenada yl 


defb 

#00 

;coordenada x2 


defb 

#00 

:coordonaday2 

bufcol 

defb 

#00 

,-fipo de apresentação 

defb 

#00 

;buffer auxiliar 

buflin 

dafb 

#00 

;buffer auxiliar 

cororl 

defw 

#0000 

;buffer auxiliar 

coror2 

defw 

#0000 

;buffer auxiliar 


;a rofina menu faz a seleção em menus 


menu 



ld 

ix.tabmenu 

;lx aponta p/ tabela 

W 

b,#06 

;b-núm. de argumentos 

call 

locomandos 

;lé os argumentos 

d ac 

hl 

;decrementa o ptr. do BASIC 

ld 

ix.chrgtr 

;0b!ém o próximo caractere 

call 

chamabasic 

• 

cp 

• • 

• 

;ó vírgula? 

JP 

nz.aborta 

;Nào, erro de sintaxe 

ld 

ix.chrgtr 

;Sim, obtém o próximo 

call 

chamabasic 

;caractere 

jp 

z, aborta 

;Se for fim do linha >aborta 

ld 

Ix.varsrc 

procura a variável 

call 

chamabasic 

;inteira 

ld 

(endvar).de 

isalva o end. da var. 

ld 

a.(vaftyp) 

;obtôm o tipo da var. 

cp 

#02 

;é inteiro? 

ÍP 

nz.erro_13 

;Nào, erro de tipo 

ld 

(auxiliar). hl 

;safva o ptr. do BASIC 

ld 

ix.tabinver 

;ix aponta p/ tabinver 

ld 

iy.tabmenu 

;iy aponta p/ tabmenu 

ld 

a.(ry+#02) 

;a-x2 

cp 

(íy+#00) 

;x2>-x1*> 

jp 

c.erro_05 

;Não, emite erro 

ld 

a,(iy+#03) 

:a«y2 

cp 

(iy 4^01) 

^2>-y1? 

ÍP 

c,erro_05 

.Não. emite erro 

call 

calpadvid 

;calcula pars. do vídeo 

ld 

a, (colunas) 

;a-x1 

dec 

a 


cp 

(iy+#00) 

;x1>colunas? 

ÍP 

c.erro_05 

;Sim, emite erro 

cp 

(iy+#02) 

;x2>colunas? 
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jp 

c.erro 05 

Sim. emite erro 

ld 

a.24 

a»núm. máx. de linhas 

cp 

(iy+*01) 

y1>24? 

jp 

c,erro_05 

Sim, emite erro 

cp 

(ty+#03) 

y2>24? 

jp 

c.erro_05 

Sim, emite erro 

ld 

h,(iy+#00) 

h»x1 

ld 

l,(iy+#01) 

Uyl 

ld 

d,(iy+#02) 

d-x2 

ld 

e,(iy+#03) 

e-y2 

ld 

a,(iy+#04) 

a=.comprimento das opções 

ld 

(ix+#02),a 

salva em tabinver 

ld 

a.#01 

a-#01 

ld 

(ix+#03).a 

ajusta a flag de 



restauração 

ld 

(cooratual).hl 

salva a pos. atual 

xor 

a 

zera a opção atual 

ld 

(opcao),a 


ld 

(inversao).a 

zera a inversão 

ld 

a.h 

compara xl com 

cp 

d 

x2 

jP 

z.vertical 

se xl -x2 mov. vertical 

ld 

a.l 

compara yl com 

cp 

B 

y 2 

jp 

nz. aborta 

se não forem iguais 


emita erro de sintaxe 


;a rotina horizontal controla o mov. horizontal Nesta rotina. 

.lemos o cálculo do valor da opção final e, a 
;partir de horizont_2, temos o controle do movimento 
propriamente dito 

honzontal 

kJ a.(compopcao) ;a-comp. das opções 

ld e,a ;satva a em e 

ld a. (passo) ;a-incremento entre as 

;opções 

add a,e ;a-passo+comprimento 

ld e.a ;salva a em e 

ld a.(coordxl) ;a-x1 

ld c.a ;c-x1 

ld a,(coordx2) ;a-x2 

ld b,#00 ;zera o registro b 

horizont_1 

sub e ;subtrai a de e 

jr c.horiz_1 1 ;Se estourou, sai do loop 
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inc 

b 

incrementa b 


cp 

c 

a=x1? 


V 

nz.honzonM 

Náo. volta para horizont_1 

horiz 1 1 

ld 

a.b 

a«opçáo máxima 


ld 

(opcaolim).a 

salva em opcaofim 

hohzont_2 





ld 

ix.tabinvor 

ix ponta p / tabinver 


ld 

hl.(cooratual) 

hl-posiçâo atual 


ld 

a.h 



ld 

(ix+#00).a 



ld 

a,l 



ld 

(ix+#01),a 



call 

rot inversão 

laz a inversão 


call 

rdstick 

lê o joystick/teclado 


cp 

#03 

o mov. foi para a direita? 


IP 

z, movdir 

Sim, vai para movdir 


cp 

#07 

o mov. foi para a esquerda? 


ip 

z.movesq 

Sim, vai para movesq 


cp 

#tf 

Return ou tiro? 


IP 

z.fimsel 

Sim, vai parafimsel 


V 

honzont_2 ;fecha o loop 


;a rotina movdír controla o movimento para a diroita. 
movdir 


ld 

a, (passo) 

;a-incremento 

ld 

e.a 

;e-a 

ld 

a,(xatual) 

:a-pos»çâo x atual 

add 

a, e 

;soma x atual com o 

ld 

e.a ; 

;incremento 
,e-x atuaUpasso 

ld 

a.(compopcao) 

;a«comp. das opções 

add 

a, a 

;a-x atuakpasso+comp. 

ld 

e,a 

;e»x calculado 

ld 

a.(coordx2) 

;asCOord. x limite 

cp 

e 

;x calculado > x limite? 

j' 

c.movdirl 

;Sim. vai para movdiM 

ld 

a,e 

;Não, a-x calculado 

ld 

(xatual).a 

;modi(ica x atual 

ld 

a.(opcao) 

;incrementao valor da 

inc 

a 

opção 

ld 

jp 

(opcao).a 

horizont_2 

volta para horizont_2 


movdiM 
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ld a.(coordxl) ;hUcoord. original 

ld h,a ; 

ld a.(coordyl) ; 

ld l.a ; 

ld (cooratual).hl ;salva em cooratual 

xor a ;zera a opção 

ld (opcao),a ;salva em opção 

jp horizont_2 ;volta para horizont_2 

;a rotina movesq controla o movimento para a esquerda 

movesq 

ld a.(passo) 

ld e,a 

ld a,(xatua!) 

ld c,a 

ld a.(coordxl) 

cp c 

jr z.movesq_1 

ld a.c 

sub e 

ld e.a 

ld a.(compopcao) 

ld c.a 

ld a.e 

sub c 

ld (xatual),a 

ld a.(opcao) 

dec a 

ld (opcao).a 

jp horizonl 2 

movesq_1 

ld a,(coordx2) ;hl-coord. original final 

ld h.a ; 

ld a.(coordy2) ; 

ld l.a ; 

ld (cooratual), hl ;sa!va em cooratual 

ld a.(opcaofim) ;a-opção final 

ld (opcao).a ;safva em opcao 

jp horizont_2 ;fecha o loop 

,a rotina vortical controla o movimento vertical. Nesta rotina, 
fornos o cálculo do valor da opção final e, a 
partir de vertical_2, temos o controle do movimento 
propriamente dito 


;a-mcremento 

;e«a 

;a=x atual 
;salva a em e 
;a-xl 

;x atuaUxl 

;Sim, vai para movesq_1 
;Não, calcula nova pos. 
;a«x atual-passo 
;e-x atual-passo 
.a-comp. das opções 
;sakra a em C 
;a-x atual-passo 
;a«x atual-passo-comp 
;modifica xatual 
;docrementa o valor 
;da opção 

; volta para horizont_2 
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vertical 





ld 

a. (passo) 

;a-incremento entro as 




;opçôes 


l d 

e.a 

.salva a am a 


ld 

a.(coordyl) 

;a-y 1 


ld 

c.a 

;c-y1 


ld 

a,(coordy2) 

;a-y2 


ld 

b,#00 

;zera o registro b 

verticaM 





sub 

e 

,a=a passo 


inc 

b 

;lncrementa o registro b 


cp 

c 

;a=y1? 


jr 

nz, verticaM 

,Não, volta para verticaM 


ld 

a.b 

a-opção máxima 


ld 

(opcaolim).a 

.salva em opcaofim 

vertical_2 





ld 

ix.tabinver 

ix aponta p/ tabinver 


ld 

hl.(cooratual) 

hUposiçáo atual 


ld 

a.h 

salva a pos. a inverter 


ld 

(ix+#00),a 



ld 

a,l 



ld 

(ix+#01),a 



call 

rotinversao 

fa 2 a inversão 


call 

rdstick 

lê o joystick/teclado 


cp 

#05 

o movimento foi para baixo? 


ÍP 

z, movbai 

Sim, vai para movbai 


cp 

#01 

o movimento foi para cima? 


ÍP 

z.movcim 

Sim, vai para movcim 


cp 

#ff 

Return ou tiro? 


ÍP 

z.fimsel 

Sim, vai parafimsel 


ÍP 

vertical _2 

Não. fecha o loop 


;a rotina movbai controla o movimento para baixo. 


movbal 


ld 

a.(passo) 

;a*incremento entre as 
;opções 

ld 

e.a 

;salva a em e 

ld 

a.(yatual) 

;a-y atual 

add 

a.e 

;a«y atuak passo 

ld 

e.a 

;salva o resultado em e 

ld 

a.(coordy2) 

;a-y2 

cp 

e 

;y atual>y2? 

ÍP 

c.rnovbaM 

;Sim, vai para movbai l 
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movbai. 


;a rotina 
movcim 


movcim 


ld 

a.e 

;Não, a=y atual 

ld 

(yatual).a 

;salva um yatual 

ld 

a.(opcao) 

;incrementa a opção 

inc 

a 

;atual 

ld 

(opcao).a 

;salva em opção 

ÍP 

vertlcal_2 

;volta para vertical_2 

ld 

a.(coordxl) 

;hl=posiç5o inicial 

kJ 

h.a 


ld 

a.(coordyl) 


ld 

l.a 


ld 

(cooratual).hl 

;salva em cooratual 

xor 

a 

;zera a opção atual 

ld 

(opcao).a 


ÍP 

vortical_2 

.volta para vertical_2 


controla o movimento para cima 

ld 

a, (passo) 

;a-incremento entre as 
;opções 

ld 

e.a 

;salva a em e 

ld 

a.(coordyl) 

,a-y1 

ld 

c,a 

;salva yl em c 

ld 

a, (yatual) 

;a«y atual 

cp 

c 

;y atual-yl? 

k 

z,movcim_1 

;Sim, vai para movdm_1 

sub 

0 

;Náo, a-y atual passo 

ld 

(yatual), a 

;salva em yatual 

ld 

a,(opcao) 

;decrementa o valor da 

dac 

a 

;opção atual 

ld 

(opcao).a 

;salva em opção 

jp 

vertical_2 

;volta para vertical_2 

ld 

a,(coordx2) 

;hl-pos»ção final 

ld 

h,a 

f 

ld 

a,(coordy2) 


ld 

u 


ld 

(cooratual).hl 

;salva em cooratual 

ld 

a.(opcaotim) 

;a«vak>r da opção final 

ld 

(opcao).a 

;salva em opção 

ÍP 

vertical_2 

;volta para vertical_2 
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:a rotina fimsel promove a atualização da variável inteira 
;e retorna para o BASIC 

íimsel 


ld 

hl.(endvar) 

;hl-end. da var. inteira 

ld 

a,(opcao) 

;a=valor da opção 

ld 

(hl), a 

;atualiza a variável 

inc 

hl 

V 

ld 

(hl), #00 

• 

call 

kilbuf 

;limpa o buffer do teclado 

ld 

hl.(auxiliar) 

;obtém o ptr. do BASIC 

iP 

volta 

;volta para o BASIC 


tabmenu 

coordt 

coordxl 

defb 

#00 

coordyl 

defb 

#00 

coord2 

coordx2 

defb 

#00 

coordy2 

defb 

#00 

compopcao 

defb 

#00 

passo 

defb 

#00 


;a rotina findfirst encontra o primeiro arquivo 
:que se corresponda com a especificação passada 
;pek> BASIC 


findfirst 

ld 

a, #11 

:a«função do BDOS 


ld 

(comfind).a 

;salva em comfind 


Jr 

comandfind 

;satta para comandfind 


;a rotina findnext encontra o próximo arquivo 
;que se corresponda com a especificação passada 
;pek> BASIC 


findnext 


ld 

W 


a.# 12 

(comfind).a 


;a-funçào do BASIC 
;salva em comfind 
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;a rotina comandtind executa a procura do 
primeiro e do próximo arquivo de acordo 
;com o valor em comfind. 

comandfind 


kl 

ix.chrgtr 

call 

cham abaste 

jP 

z, aborta 

jp 

c, aborta 

ld 

ix.varsrc 

call 

chamabasic 

ld 

(endvar).de 

ld 

a.(valtyp) 

cp 

#03 

JP 

nz.erro_13 

xor 

a 

ld 

(de).a 

inc 

de 

ld 

(de).a 

inc 

de 

ld 

(de), a 

dec 

hl 

ld 

ix.chrgtr 

call 

chamabasic 

cp 

• • 

t 

jp 

nz.aborta 

ld 

ix.chrgtr 

call 

chamabasic 

cp 

#22 

ÍP 

nz.aborta 

ld 

ix.anfile 

call 

chamabasic 

ld 

(auxiliar), hl 

call 

inifcb 

ld 

a.d 

ld 

de. (fcb) 

ld 

(de).a 

ld 

hl.filnam 

inc 

de 

ld 

Idir 

bc.0011 

ld 

de, (dma) 

ld 

c,#1a 

call 

bdos 

ld 

de.(fcb) 

ld 

a.(comfind) 


;obtém o primeiro 

;argumento 

;se não for caractere, 

;aborta 

;procura a variável 
» 

.salva o end. da variávol 
.-verifica se ó stnng 

;Não, emite type mismatch 
;inicializa a variável 
;com tamanho 
;e endereço inicial 
;iguais a zero 


;obtém o próximo caractere 
;ó virgula 7 

;Não. erro de sintaxe 
;obtém o próximo caractere 

• 

;sào aspas? 

;N5o. erro de sintaxe 
;obtem o nome do arquivo 

;salva o ponteiro do 
;BASIC 

;ínicializa o fcb 
;a«númoro do drrve 
;coloca na primeira 
posição do FCB 
transfere a especificação 
;do arquivo para o FCB 
;bc-tamanho do nome 
transfere 
;ajusta o dma 


;de aponta para o FCB 
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ld 

c.a 

c=funçâo#11 do bdos 

call 

bdos 


ld 

hl, (auxiliar) 

obtem o ptr. do BASIC 

or 

a 

testa se achou ou não 

ÍP 

nz.voíta 

Não, volta para o BASIC 

ld 

de.(dma) 

Sim, transfere o nome 

push 

de 


push 

de 

para a variável string 

pop 

hl 

hl aponta para o fim do nome 

inc 

hl 

de aponta para a ram livro 

ld 

bc.#0008 

obtém a extensão 

Idir 



ld 

a,V 

coloca o ponto separando 

ld 

(de), a 

o nome da extensão 

pop 

de 


ld 

hl.(endvar) 


ld 

(hl),#0c 

ajusta o tamanho da string 

inc 

hl 


ld 

(hl),e ;ajusta o endereço da 

inc 

hl ;string propriamente dita 

ld 

(hl).d ;no buffer da variável. 

ld 

hl, (auxiliar) pbtém o ptr. do BASIC 

ÍP 

volta ;retorna 


;a rolina inrfcb promove a inicialização do 
;FCB usando a instrução LDIR para preencher 
;uma área com um único dado (#00 no caso) A 
;inicialização do FCB ó uma tarefa fundamental 
;na abertura e criação de arquivos. 


inrfcb 


push 

bc 

push 

hl 

push 

de 

ld 

hl.(fcb) 

ld 

(hl). #00 

push 

hl 

pop 

de 

inc 

de 

ld 

Idir 

bc,0035 

pop 

de 

pop 

hl 

pop 

ret 

bc 


;satva os registros 
;afetados por esta 
;rotina 

;hl aponta para o FCB 
preenche o primeiro 
;byte com zero 
;de aponta para o 2o. 
;byte do FCB 
;bc«iamanho do FCB-1 
preenche todo o FCB 
;com zeros 
;recupera os registros 
,-salvos 


;retorna 
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;a rotina rdstick lè o estado dos joysticks e das teclas 
;do cursor 


rdstick 



push 

ix 

;satva os registros 


push 

iy 

‘.afetados 


push 

bc 

• 


push 

do 

• 


push 

hl 

• 

rdslick_1 

td 

a.#00 

;lè o estado 


call 

gtstck 

;das teclas do cursor 


or 

a 

;alguma tecla pressionada? 


jr 

nz, fimstick 

;Sim. vai para fimstick 


td 

a, #01 

;lé o estado do 


call 

gtstck 

;joystick na porta A 


or 

a 

;algum movimento? 


jr 

nz, fimstick 

;Sim. vai para fimstick 


ld 

a, #02 

;lè o ostado do 


call 

gtstck 

•joystick na porta B 


or 

a 

;algum movimento? 


jr 

nz.fimstick 

.Sim. vai para fimstick 


ld 

a,#00 

;lô 0 ostado da barra 


call 

gttrig 

;do espaço 


or 

a 

;foi pressionada? 


jr 

nz.fimstick 

;Sim, vai para fimstick 


ld 

a.#01 

;lé o estado do botão de 


call 

gttrig 

,liro do joystick A 


or 

a 

;foi pressionado? 


jr 

nz.fimstick 

;Sim. vai para fimstick 


ld 

a, #02 

;lè o estado do botão do 


call 

gttrig 

;tiro do joystick B 


or 

a 

;foi pressionado? 


jr 

z,rdstick_1 

;N3o, volta para rdstick 1 

fimstick 

push 

af 

;safva o valor lido 


ld 

hl,#8000 

iprovoca um pequeno 

toopendst 

dec 

hl 

;retardo para que as 


ld 

a,h 

;seleções não sejam 


or 

1 

;ráp>das demais 


jr 

nz.loopendst 

• 


pop 

af 

•.recupera 0 valor lido 


pop 

hl 

;recupera todos os 


pop 

de 

;registros salvos 


pop 

bc 

;no inicio da rotina 
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pop ry 

pop ix 

rot 


retorna 


;a rotina calpadvid calcula os padrões do video: a tabela de 
•.padrões e o número de colunas. Os valores resultantes sáo 
;colocados em tabpad o colunas, respectivamente. 


calpadvid 

ex 

af.af’ 

;salva o registro af 


exx 

W 

hl.(txtogp) 

;salva os demais registros 
;ob!ém a tab. de padrões 


ld 

a.(versao) 

;obtém a versão 


or 

a 

;do MSX. É MSX1? 


V 

2 , calpad 1 

;Sim, vai para calpad_1 


kJ 

a.(linlen) 

;obtém o tamanho da tela 


cp 

41 

;0 MSX2 está em 80 colunas 


V 

c.calpad_1 

;Não, vai para calpad_1 


ld 

a, 80 

:Sim. a-80 colunas 


add 

hl, hl 

;calcula novo end. da 


j' 

calpad_2 

; tabela de padrões 
;vai para caipad_2 

calpad 1 

ld 

a, 40 

;a=40 colunas 

calpad_2 

ld 

(colunas).a 

;salva as colunas 


ld 

(tabpad), hl 

;salva o end. da tab. de 


exx 

ex 

af.af 

padrões 

;recupera os registros salvos 


ret 


;rotorna 


;a rotina lefrase transporta da tela para o buffer bufnor 
,a sentença a inverter 

lefrase 


push 

af 

;salva os registros 

push 

bc 

;modiíicados por esta 

push 

de 

;rotina 

push 

hl 

• 

call 

calendfra 

;calcula o end. da string 
;na VRAM 

call 

setvdprd 

iprepara o VDP para leitura 

ld 

b.(tx+i»00) 

iobtém o comp. da string 

ld 

hl,bufnor+#03 

;hl->início da string 

call 

lelinha 

;lè a string 

pop 

hl 

;recupera os registros 
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pop de ;salvos 

pop bc 

pop aí ; 

rat ;retorna 


;a rotina calendfra. baseada nas coordenadas fornecidas, calcula o endereço da sentença a 
;inverter na memória VRAM 


calendfra 



ld 

MOO 

;calcula o end. da string 


W 

d.h 

;na memória VRAM, baseada 


ld 

a.(grpacy) 

;nas coordenadas passadas 


ld 

U 



or 

a 

;a string está na linha 0? 


jr 

z. calendl 

;Sim. vai para calendl 


ld 

lh 

;Náo, calcula o end. do 


ld 

b.a 

;inicio da linha 


ld 

a.(colunas) 



ld 

e.a 


loopcaM 

add 

hl.do 



djnz 

loopcal_1 


calendl 

ld 

a.(grpacx) 

;obtém a coord. x 


ld 

e.a 

;e«coord. x 


add 

hl.de 

;soma ao end. já encontrado 


ld 

(bufnor* -#01) 

,hl;salva no buffer das strings 


ld 

(bufinv+#0l) 

,hl;normal e invertida 


ret 


;retorna 


;a rotina posit posiciona o cursor nas coordenadas passadas 
;por hl. h-x e l-y 


push 

aí 

satva todos os 

push 

bc 

registros afetados 

push 

de 

:>or esta rotina 

push 

hl 

troca o conteúdo de hl pelo 
de de 

ex 

de.hl 

ld 

hl.tOOOO 

zera hl 

ld 

a.e 

a«linha 

or 

a 

é igual a zero? 

jr 

z,posit2 

Sim, vai para posit2 

push 

de 

Não. salva as coordenadas 

ld 

b.a 

b=núm. da linha 

ld 

a.(colunas) 

a*núm. de colunas 
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kJ 

o.a 

;e-núm. de colunas 


ld 

d.#00 

;de»núm. de colunas 

positl 

add 

djnz 

hl.de 

positl 

;hUhl+ núm. do colunas 

posit2 

pop 

de 

;recupera as coordonadas 

ld 

a.d 

;a-coluna 


or 

a 

;é igual a zero? 


K 

Z.posit3 

;Sim. vai para posit3 


ld 

e.a 

;Não, e-coluna 


ld 

d, #00 

;de=coluna 

posit3 

add 

hl.de 

;hl aponta para o end. da 
;VRAM 

;correspondente a xl ,y1 

call 

setvdpwt 

;prepara o VDP para escrita 


pop 

hl 

;recupera os registros 


pop 

de 

• 


pop 

bc 

• 


pop 

ret 

af 

• 

;e retorna 


;lnicio da lista com os nomes dos novos comandos « 
;ondereços da chamada 

lista 


defm 

'REVERSE" 

;nome do comando 

defb 

#00 

,1im do nome 

defw 

inverte 

;ond. da rotina 

defm 

■CLRSCR- 

;nomo do comando 

defb 

#00 

;fim do nome 

defw 

newcls 

;end. da rotina 

defm 

"WINDOW" 

;nome do comando 

defb 

#00 

;fim do nome 

dofw 

window 

;end. da rotina 

defm 

"MENU" 

;nome do comando 

defb 

#00 

^im do nome 

defw 

menu 

;end. da rotina 

defm 

"FINDFIRST" 

;nome do comando 

defb 

#00 

;fim do nome 

defw 

findfirst 

;end. da rotina 

defm 

"FIND" 

;nome do comando 

defb 

#83 

;token do next 

defb 

#00 

,1im do nome 

dofw 

findnext 

;end. da rotina 

defb 

#00 

^im da lista 


ondlista 
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;rotmas para o acesso direto à RAM de video 


rdvram 

call 

setvdprd 

;ajusta o VOP para leitura 


In 

a. (#98) 

;lé um byte 


rei 


;retorna 


wtvram 





push 

af ;salva o dado a enviar 


call 

setvdpwt ;ajusla o VDP para escrita 


pop 

at 

recupera o dado a enviar 


out 

(#98).a 

envia 


ret 

;retorna 

setvdprd 





ld 

a, (versão) ;obtóm a versão do MSX 


or 

a ;é MSX1? 


V 

z.rdvraml 

Sim, vai para rdvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99). a 

do MSX2 


ld 

a.#8e 



out 

(#99), a 


rdvraml 

ld 

a,l 

informa ao 


out 

(#99). a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#3t 

lido o dado 


out 

(#99), a 



ex 

(sp),hl 

demora para 


ex 

(sp),hl 

sincronização 


ret 




setvdpwt 

ld 

a.(versao) 

;obtém a versão do MSX 


or 

a 

;é MSX1? 


K 

z, wtvram 1 

;Sim. vai para wtvram 1 


xor 

a 

;Não, inicializa o VDP 


out 

(#99), a 

;do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvram 1 

ld 

a,l 

;ínforma ao 


out 

(#99), a 

;VDP o endereço na 


ld 

a.h 

;VRAM onde o 


and 

#31 

;dado será 


or 

#40 

;gravado 


out 

(#99), a 

« 
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ÔX 

(sp).hl 

;demora para 


ex 

(sp).hl 

;$incronizaç5o 


ret 


•«retorna 

;a rotina lelinha transporta uma linha da VRAM para a RAM 

lolinha 

In 

a. (#98) 

;ló o carac. da VRAM 


ld 

(hl).a 

;salva-o no buffer apontado 
;por hl 


inc 

hl 

;incrementa o ponteiro do 
;buffer 


djnz 

lelinha 

;prepara a próxima leitura na 
;tela 


ret 


;retorna 

;a rotina esclinha transporta uma linha da RAM para a VRAM 

esclinha 

ld 

a, (hl) 

;lé o carac. do buffer 


out 

(#98), a 

;escreve-o na VRAM 


inc 

hl 

;incrementa o ponteiro do 
;buffer 


djnz 

esdinha 

;prepara a próxima escrita na 
.leia 


ret 


;retorna 

:área das variáveis usadas no programa 


bufnor 

defb 

#00 

;tamanho da strmg 


defw 

#0000 

iposição de escrita 


defs 

33 

;string 

bufinv 

defb 

#00 

;lamanho da string 


defw 

#0000 

iposiçáo de escrita 


dofs 

33 

;string 

inversão 

defb 

#00 

ilag do campo já invertido 

oompstr 

defb 

#00 

;comprimento da string 


colunas 


defb #00 


;número de colunas na tola 
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tabpad 

dofw 

#0000 

;endereço da íab. do padrões 

auxiliar 

detw 

#0000 

;pontoiro do BASIC 

endvar 

dofw 

#0000 

;end da variável BASIC 

comfind 

detb 

#00 

;número da função de procura 

opcao 

dofb 

#00 

:valor da opção atual 

opcaofim 

defb 

#00 

.valor da opção final 

cooratual 
yatual dofb 

#00 


.coordenadas atuais 

pc 

xatual detb 

#00 


bufferlinha 

defs 

81 

;buffer do linha da tela 

fim 

equ 

$ 



Listagem em linhas DATA do código-objeto do programa que Implementa os comandos 
FINDFIRST o FINDNEXT: 

10 FOR A%-4HD000 TO 4RD869 
20 READ B$ 

30 POKE A% , VAL (” 4H”+B$) 

40 NZXT A« 

50 BSAVE "PROG29 . BIN", 4HD000, 4RD869 

100 DATA F3, DB. A8 , 47, E6, F0, OT , 01*, 0F, 0F, BO , D3 . A8 , E6, 03, 32 
110 DATA 2E.D0.78.21.2D,D0,11,B1,FF,01.05.00,ED,B0,21,32 
120 DATA DO,11,00,40,01,37.08,ED,BO.D3,A8.FB,C9,F7.00,00 
130 DATA 40, C9, F5 , C5, D5 , E5, 7B, FE, 02 , C2, 20, 40, 2A, AF, F6, 7E 
140 DATA B7, C2, 16, 40, 23, 23, 23, 23, DD, 21, 66, 46, CD, B3, 40, CD 
150 DATA 23, 40, El, Dl. Cl, F1,C9, 22. DC. 47, 21, 09. 47, 01, 37, 00 
IfiO DATA ED, 5B, DC, 47, IA, ED, BI , E2, 48, 40, 13, IA. BE, C2, 2E, 40 
170 DATA 23, 7E, FE ,00, CA, 49, 40, C3, 38,40, C9, 23, 4E, 23, 46, F1 
180 DATA C5, ED, 53 , DC, 47 , EB, C9, DD, E5, DD, E5, DD, 21,66,46, CD 
190 DATA B3, 40, DD, El, 28, IA, FE, 2C, 28,12, 2B, DD, E5, C5, DD, 21 
200 DATA 0E, 52, CD, B3, 40, Cl. DD. El. 7B, DD. 77. 00, DD, 23.10, D9 
210 DATA DD, El, C9, 3E, 05, 32, 14, F4, 18,07, 3E, 0D, 32, 14, F4, 18 
220 DATA 00, El , Dl , Cl, F1 , 3A, 14 , F4 , 5F, C9, 2B, AF, 32, 14, F4, Dl 
230 DATA Dl , Cl . F1 , Dl, Cl , Fl, DD, El, DD, El, F5, C5, D5, DD, 21,66 
240 DATA 46, C3, B3, 40, C9, CD, 59, 01, C9, 06, 04 , DD, 21 , 9B. 41, CD 
250 DATA 55, 40, 22, DC, 47, CD, CC, 40, 2A, DC, 47, C3. 98, 40. DD. 7E 



3 16 Guia do Programador MSX 
CAP6 


260 DATA 00,32.B7.FC,DD,7E.01,32,B9,FC,DD,7E,02,32,D8, 47 
270 DATA FE, 21, D2, 93, 41, DD, 7E. 03, B7, 28, 1C, 3A, D7, 47, B7, 28 
280 DATA 16, 3A, 8F, 47, B7, 28, 10, 2A, 90, 47. CD. 67. 47, 21, 92, 47 
290 DATA 3A, 8F, 47, 47, CD, 88, 47,2A,DC, 47, 3A, D8. 47, B7, CA, 97 
300 DATA 41. DD, 21. 8F. 47, FD, 21, B3, 47, DD, 77, 00, FD, 77, 00, CD 
310 DATA 88. 46, 3A.B7.FC.5F. 3A.D9, 47, BB, DA, 93, 41,3A,B9,FC 
320 DATA FE, 18, D2, 93, 41, CD. AA. 46, F3. 2A, DA, 47, E5, 11, 00, 07 
330 DATA 19, EB, 0E,E0,DD, 46, 00, DD, 21. 92, 47. FD. 21. B6. 47, El 
340 DATA C5, E5, D5, 11, 08, 00, DD, 46, 00, 19, 10, FD. Dl, 06. 08, CD 
350 DATA 41, 47, 2F. EB, CD, 47, 47, EB, 23, 13, 10, F3, El, Cl, FD, 71 
360 DATA 00, 0C, DD, 23, FD, 23, 10, D8, FD, 21, B3, 47, FD. 6E, 01, FD 
370 DATA 66 , 02 , CD, 67, 47, FD, 46, 00, 21, B6, 47, CD, 88, 47 , 3E, FF 
380 DATA 32, D7, 47, FB, C9,F1,C3, 81, 40, Fl, 03,98,40,00, 00. 00 
390 DATA 00, 06, 02 , DD, 21 , 5C, 42 , CD, 55, 40, 22 , DC, 47 , DD, 7E, 00 
400 DATA FE, 02, D2. 81, 40, CD, 88, 4 6, 3A, D9, 47, 3F, DD, 7E, 01, 1C 
410 DATA BB, D2, 81, 40, B7.CA. 98, 40, DD, 7E. 00.B7.C2, 13, 42, F3 
420 DATA DD, 46, 01,C5, 2A,B3, F3, 3A, D9, 47. 5F. 16. 00. 3A. Bl, F3 
430 DATA 47 , C5, CD, 4F, 47, 3A, D9, 47, D5, E5, 21 , E5, 47 , 47 , CD. 81 
440 DATA 47 , 3E, 20, 77. El , Dl , CD, 67,47, D5, E5 , 21 , E6 , 47, 3A, D9 
450 DATA 47 , 47, CD, 88, 47, El, Dl, 19, Cl, 10, D6, Cl, 10, C5, FB, 2A 
460 DATA DC, 47, C3, 98, 40, F3, DD, 46, 01 , C5, 2A, B3, F3 , 3A, D9, 47 
470 DATA 5F, 16, 00, 3A, B1,F3, 47.C5.CD. 4F, 47, 3A, D9. 47, D5, E5 
480 DATA 21, E6, 47, 47, CD, 81, 47, 3E, 20, 21, £5,47,77, El, Dl. CD 
490 DATA 67 , 47, D5, E5, 21 , E5, 47 , 3A, D9, 47, 47, CD, 88 , 47 , El , Dl 
500 DATA 19, Cl ,10, D3, Cl , 10, C2 , FB, 2A, DC, 47, C3, 98 , 40, 00, 00 
510 DATA DD, 21, 7D, 43. 06, 05, CD, 55, 40,22, DC. 47, CD, 88, 46, DD 
520 DATA 21, 7D, 43, DD, 66. 00, DD, 6£, 01, DD. 56. 02, DD, 5E. 03, 7C 
530 DATA BA, D2, 81, 40, 7D,BB, D2, 81, 40, 7B, FE. 18, D2, 81. 40, 3A 
540 DATA D9. 47, 3D.BA, DA, 81, 40, DD, 7E, 04, B7.C2, A5. 42. CD, 1F 
550 DATA 43, 2A, DC, 47, C3. 98, 40, AF, 32,82, 43,32, 83 , 43, 22, 84 
560 DATA 43.ED, 53, 86, 43, 7C. 82.CB, 3F, 3D, 67, 3C, 3C, 57, 7D, 83 
570 DATA CB, 3F, 3D, 6F, 3C, 3C, 5F.CD, 1F. 43. CD. E6, 42. CD, F5. 42 
580 DATA CD, 1F. 43, CD, 04,43, CD, 11, 43,20, EF, 2 A, 84 , 43, ED, 5B 
590 DATA 86, 43. CD. 1F, 43, C3, 9F, 42, 3A, 85, 43, BC, 30, 03, 25, 14 
600 DATA C9, 3E, 01. 32. 82. 43, C9. 3A. 84. 43.BD, 30, 03, 2D, 1C, C9 
610 DATA 3E,01, 32, 83, 43,C9,F5,E5, 21,00, 10. 2B, 7C, B5, 20, FB 
620 DATA El , Fl , C9, 3A, 82,43, FE, 01 , 28, 01, C9, 3A, 83,43, FE, 01 
630 DATA C9,C3,D5,E5,CD,E1,46,7A, 94.3D, 47.C5.3E.18.D3. 98 
640 DATA E3, E3, 3E, 17, D3, 98, E3 , E3, 10, F8, 3E, 19, D3, 98, Cl, 6B 
650 DATA CD. El, 46, 3E. 1A.D3, 98.E3.E3.3E. 17, D3, 98,E3,E3, 10 
660 DATA F8, 3E, 1B.D3. 98. El, Dl, D5. E5. 7B, 95, 3D, 47, 7A, 94, 3D 
670 DATA 4F,2C,CD,E1. 46, 3E, 16.D3, 98.C5, 41, 3E. 20. D3. 98.E3 
680 DATA E3,10,F8,3E, 16, D3, 98 , 2C, Cl , 10, E7 , El , Dl . Cl. C9. 00 
690 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, DD, 21, 83, 45. 06, 06 
700 DATA CD, 55, 40, 2B, DD, 21 , 66,4 6, CD, B3, 40, FE, 2C, C2, 20, 40 
710 DATA DD, 21, 66,46, CD, B3, 40, CA, 20,40, DD, 21, A4 , 5E. CD, B3 
720 DATA 40, ED, 53, DE, 47 , 3A, 63, F6, FE, 02, C2. 88, 40,22, DC, 47 
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730 DATA DD, 21, 9B, 41, FD, 21. 83, 45, FD, 7E, 02, FD, BE, 00, DA, 01 
740 DATA 40. FD, 7E. 03. FD. BE, 01, DA, 81, 40, CD, 88, 46, 3A. D9, 47 
750 DATA 3D. FD, BB, 00, DA, 81, 40, FD, BE , 02 , DA, 81 , 40, 3E, 18, FD 
760 DATA BK, 01, DA, 01, 40, FD, BE, 03, DA. 81, 40, FD, 66, 00, FD, 6E 
770 DATA 01 , FD, 56, 02, FD, 5E, 03, FD, 7E, 04, DD, 77,02, 3E, 01, DD 
780 DATA 77, 03, 22, E3, 47, AF, 32. El, 47, 32, D7, 47, 7C, BA, CA, D3 
790 DATA 44, 7D, BB.C2. 20. 40, 3A, 87, 45, 5F, 3A, 08, 45, 83, 5F. 3A 
800 DATA 83. 45, 4F. 3A, 85, 45, 06, 00, 93, 30, 04 . 04. B9. 20. F9. 78 
810 DATA 32 , E2 . 47 , DD, 21 , 9B, 41 , 2A, E3 , 47, 7C, DD. 77 , 00, 7D, DD 
820 DATA 77 , 01, CD, CC, 40, CD, 3F, 46, FE. 03. CA. 67. 44. FE. 07, CA 
830 DATA 9B, 44. FE. FF, CA, 70, 45. 18, DA, 3A, 88, 45, 5F, 3A. E4. 47 
840 DATA 83, 5F. 3A, 87. 45, 83, 5F, 3A, 85. 45. BB. 38. OE. 7B. 32. E4 
850 DATA 47, 3A.E1, 47, 3C, 32 , El , 47 . C3 . 41. 44, 3A. 83, 45. 67, 3A 
860 DATA 84,45, 6F, 22. £3,47, AF, 32. El. 47. C3. 41, 44, 3A, 00, 45 
870 DATA 5F. 3A, E4 . 47, 4F, 3A. 83. 45, B9.28, 16, 79, 93, 5F, 3A. 87 
880 DATA 45, 4F, 7B. 91, 32.E4, 47, 3A, El, 47, 3D, 32, El. 47.C3. 41 


890 DATA 44 , 3A. 85, 45, 67 , 3A, 86,45, 6F,22,E3. 47, 3A.E2, 47, 32 
900 DATA El , 47 , C3, 41, 44 , 3 A, 88 , 45, 5F, 3A, 84 . 45, 4F, 3 A, 86,45 
910 DATA 06, 00, 93.04.B9. 20.FB.78. 32. E2. 47, DD, 21, 9B, 41, 2A 
920 DATA E3, 47, 7C.DD. 77. 00. 7D, DD, 77, 01, CD, CC, 40, CD. 3F. 46 
930 DATA FE, 05, CA. 10. 45. FE, 01 , CA, 40, 45, FE. FF. CA, 70. 45. C3 
940 DATA E9. 44. 3A. 88, 45, 5F, 3A.E3, 47, 03, 5F. 3A. 86. 45. BB. DA 
950 DATA 2E. 45, 7B, 32, E3, 47, 3A, El, 47 , 3C, 32 , El. 47, C3, E9, 44 
960 DATA 3A, 83, 45, 67, 3A, 84. 45, 6F. 22. E3. 47, AF, 32, El, 47, C3 
970 DATA E9, 44, 3A. 88. 45. 5F. 3A. 84. 45. 4F, 3A.E3, 47.B9, 28, OE 
980 DATA 93,32, E3 ,47, 3A, El , 47 , 3D, 32 , El , 47 , C3, E9 , 44 , 3A, 85 
990 DATA 45, 67, 3A. 86. 45. 6F, 22.E3, 47, 3A,E2. 47, 32.E1. 47.C3 
1000 DATA E9, 44. 2A, DE, 47, 3A, El, 47, 77, 23. 36, 00, CD, 56, 01, 2A 
1010 DATA DC, 47, C3, 98. 40,00, 00,00, 00. 00. 00, 3E. 11,32, EO, 47 
1020 DATA 10, 05, 3E. 12, 32, EO. 47. DD, 21, 66, 46, CD. B3, 40, CA. 20 
1030 DATA 40. DA. 20. 40, DD. 21. A4,5E,CD,B3, 40. ED. 53, DE. 47, 3A 
1040 DATA 63, F6, FE, 03, C2 , 88, 40 , AF , 12, 13, 12, 13. 12, 2B, DD, 21 
1050 DATA 66. 46,CD,B3, 40, FE, 2C.C2, 20. 40, DD. 21. 66. 46.CD.B3 
1060 DATA 40, FE, 22 , C2 ,20,40, DD, 21 . OE. 6A, CD, B3, 40, 22 , DC, 47 
1070 DATA CD,2B, 46,7A,ED. 5B. 53.F3, 12, 21, 66.F8, 13,01, OB, 00 
1080 DATA ED,B0,ED,5B. 4F.F3, OE, 1A,CD,7D,F3,ED. 5B. 53.F3, 3A 
1090 DATA EO, 47, 4F.CD, 7D,F3, 2A.DC, 47,B7,C2. 98. 40. ED. 5B, 4F 
1100 DATA F3, D5.D5, *1.23, 01, 08, 00, ED,B0, 3E.2E.12.D1.2A.DE 
1110 DATA 47,36, OC, 23, 73, 23, 72, 2 A, DC, 47, C3 , 98, 40, C5, E5, D5 
1120 DATA 2A, 53, F3, 36, 00, E5, Dl, 13, 01, 23, 00, ED, BO, Dl , El , Cl 
1130 DATA C9 , DD, E5, FD, E5 , C5, D5, E5, 3E, 00, CD, D5, 00, B7 , 20, 28 
1140 DATA 3E. 01 , CD, D5, 00, B7 ,20,20, 3E, 02, CD, D5, 00, B7. 20, 18 
1150 DATA 3E, 00, CD, D8, 00, B7, 20,10, 3E, 01, CD. D8, 00, B7 , 20, 08 
1160 DATA 3E, 02, CD, D8, 00 , B7, 28, DO , F5, 21, 00. 80, 2B, 7C, B5, 20 
1170 DATA FB,F1,E1,D1,C1,FD.E1.DD,E1,C9, 08,09, 2A,B7,F3, 3A 
1180 DATA 2D, 00, B7, 28, OC, 3A, BO, F3, FE, 29, 38, 05, 3E, 50, 29, 18 
1190 DATA 02, 3E, 28 , 32, D9 , 47, 22 , DA, 47, D9, 08. C9. F5, C5, D5, E5 
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1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 


CD,C2, 46, CD, 4F, 47, DD, 46, 00,21, 92, 47, CD, 81, 47, El 
D1,C1,F1,C9,26,00,54,3A, B9,FC, 6F,B7,28,09, 6C, 47 
3A.D9, 47. 5F. 19. 10, FD. 3A.B7.FC, 5F. 19, 22. 90, 47. 22 
B4. 47.C9.F5.C5.D5.E5.EB. 21,00, 00.7B. B7.28, 0C. D5 
47, 3A, D9, 47, 5F, 16, 00,19, 10, FD, Dl , 7A. B7, 28, 04. 5F 

16.00. 19, CD, 67, 47, El, Dl, Cl, Fl, C9 ,52, 45,56, 45,52 

53.45. 00, B7, 40, 43, 4C, 52, 53, 43,52,00, 9F, 41, 57, 49 
41. 44, 4F.57, 00, 5E, 42, 4D, 45, 4E, 55, 00, 88, 43, 46, 49 
4E, 44. 46. 49. 52. 53, 54. 00, 89. 45. 46. 49. 4E. 44. 83. 00 
90,45, 00, CD. 4F, 47, DB. 98.C9.F5.CD, 67. 47.F1.D3, 98 
C9, 3A, 2D, 00, B7, 28, 07, AF, D3, 99, 3E, 8E.D3, 99, 7D, D3 
99, 7C. 16. 3F, D3, 99, 13. E3, C9, 3A, 2D. 00. B7. 28, 07. AF 
D3. 99. 3E. 8E, D3, 99, 7D.D3, 99, 7C, E6, 3F. F6. 40, D3. 99 
E3,E3,C9,DB, 98, 77. 23. 10, FA.C9, 7E. D3. 98, 23. 10, FA 
C9, 00, 00,00, 00, 00, 00, 00, 00, 00, 00,00, 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
00 , 00 , 00 , 00 , 00 . 00 . 00 . 00 , 00 , 00 , 00 , 00 . 00 . 00 , 00, 00 
00,00, 00,00, 00.00, 00. 00. 00, 00, 00, 00. 00. 00. 00. 00 
00 , 00 , 00 . 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 . 00 . 00 . 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
00 , 00 . 00 . 00 , 00 . 00 , 00 . 00 , 00 , 00 , 00 , 00 , 00 . 00 , 00. 00 
00 , 00 . 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 . 00 . 00. 00 
00, 00, 00, 00, 00, 00, 00, 00, 00,00, 00,00, 00, 00, 00, 00 
00, 00, 00,00, 00, 00, 00, 00, FF, FF 


Listagem do programa de teste: 

100 CLS:KEYOFF:WIDTH 39 

1 10 BLOAD’PROG29.BIN".R 

120 REM *** DEMONSTRAÇÃO DOS COMANDOS 

130 REM ••• FINDFIRST E FINDNEXT *** 

1 40 FINDFIRST A$, "????????.???" 

150 REM ••• A$«PRIMEIRO ARQUIVO 

160 IF A$-~ THEN GOTO 220:REM M * SEM ARQUIVOS "* 

170 REM IMPRIME O DIRETÓRIO — 

180 S1S--DIRETÔRIO DO DRIVE A" 

1 90 X-(40-LEN(S1 S))/2:Y-6:LOCATE X,Y:PRINT Si $:PRINT:PRINT A$f 
200 FINDNEXT A$."????????.???":IF A$o" THEN PRINT A$;‘ *;:GOTO 200 
210 END 

220 REM *** EMITE MENSAGEM DE DISCO 
230 REM *•* SEM ARQUIVOS *** 

240 LOCATE 0,10:PRINT "O DISQUETE NÃO CONTÉM ARQUIVOS" 

250 END 
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COMENTÁRIOS SOBRE O PROGRAMA QUE 
IMPLEMENTA OS COMANDOS FINDFIRSTE FINDNEXT 

O programa acima faz uso da alguns endaraços do BASIC de Disco qua já vimos anterior- 
manta. Esses endereços nâo fornecem os vetores para a área do FCB e para o DMA do BA- 
SIC de disco. Você deve estar lembrado que, na funçào #1 1 , eu afirmei que o FCB do primeiro 
arquivo qua se correspondesse à especificação colocada no FCB seria colocado no DMA. As- 
sim sendo, precisávamos fazer uso dos ponteiros para o FCB (contendo a descrição do arqui- 
vo a procurar) e para o DMA (contendo o FCB do arquivo encontrado). A rotina ó muito simples 
de se entender, bastando uma análise dos comentários feitos após cada instrução. A única 
chamada que não foi comentada refere-se à rotina ANFILE (nome dado por mim), que faz a 
análise de uma especificação de arquivo fornecida pelo BASIC. Ao chamar esta rotina do in- 
terpretador BASIC, devemos fazer com que HL aponte para o primoiro par do aspas (") da es- 
pecificação do arquivo. Esta rotina transfere o nome (ou especificação) do arquivo para a 
variável do sistema chamada F1LNAM, já na forma a sor usada polo FCB. No rotorno. o regis- 
tro D contém o número do drive a ser acessado. Quer mais "moleza" que isto? O quo so se- 
gue são simples arrumações, para que na volta ao BASIC o nome do arquivo encontrado seja 
transferido para a variável correta. Examine a listagem do programa de teste para entender a 
sintaxe dos novos oomandos. 


O PROGRAMA QUE APRESENTA 
AS CARACTERÍSTICAS DE UM DISQUETE 

Gostaria, agora, da apresentar um pequeno programa que apresenta todas as informações 
contidas no BPB de um determinado drive. Como condição, devemos usar somente rotinas da 
BDOS (ató para a impressão no vídeo). Vamos então às listagens. 


Listagem em assembly Z-80 do códlgo-fonto do programa que apresenta as Informações 
no BPB: 


bufset 

equ 

#f351 


bdos 

equ 

#f37d 


valtyp 

equ 

#1663 


argusr 

equ 

#f7f8 



defb 

#fe 

isimula em CP/M 


defw 

inicio 

;o cabecalho de 


defw 

fim 

;um arquivo 


defw 

inicio 

;.BIN 



org 

#d100 
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inicio 


inicío_1 


ld 

a.(valtyp) 

cp 

#02 


ret 

nz 

!d 

a.(argusr) 

cp 

#03 

K 

nc.erro 

or 

a 

k 

z.erro 

ld 

e, a 

1 d 

c,#1b 

call 

bdos 

cp 

#ff 

r 

z.erro 

push 

ix 

ld 

de.mensagem_1 

ld 

c,#09 

call 

bdos 

pop 

ix 

push 

ix 

ld 

l.(ix+#0e) 

ld 

h.(ix-r#0f) 

call 

ascii 

ld 

de.mensagem_2 

ld 

c.#09 

call 

bdos 

pop 

ix 

push 

ix 

ld 

l,(ix*#11) 

ld 

h,(ix+#12) 

call 

ascii 

ld 

de, mensagem 3 

ld 

c.#09 

call 

bdos 

pop 

ix 

ld 

l,(íx-^#0c) 

ld 

h.(ix4#0d) 

push 

hl 

dec 

hl 

call 

ascii 

ld 

de. mensagem 4 

ld 

c.#09 


;obtóm o tipo de argumento 

;so o argumento da 

ifunção USR não for 

;inteiro 

;retorna 

;drive > 2 (8)? 

• 

;Sim. volta com erro 
;igual a zero? 

;Sim, volta com erro 
;inicializa o BPB 
;do drive em 
;questão 
;houve erro? 

;Sim, vai para erro 
;salva o ponteiro 
;para o BPB 
;imprime a primeira 
;monsagem 
» 

;recupera o ptr. 

;torna a salvar 
;hl-numero de 
;aglomerados 
;achaos dígitos 
;imprimo a segunda 
;mensagem 

I 

;recupera o ptr. 

;torna a salvar 
;hl-número do 
;sotor inicial 
;do dirotório 
;impnme 05 dlgitOS 
;imprime a terceira 
;mensagem 

;recupera o ptr. 

;hl«setor inicial 
;da área de dados 
;salva 

;hl«setor final do 
:dtretório 

;imprime os dígitos 
;imprime a quarta 
;mensagem 
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call 

bdos 


pop 

hl 

;recupera hl 

call 

ascii 

;imprime osdigitos 

td 

hl.#0000 

;sinaliza que correu 

ld 

(argusr).hl 

;tudo bem e 

ret 

;volta ao BASIC 


erro 


ld 

hi.mtft 

;sinaliza a ocorrência 

kl 

ret 

(argusr).hl 

;de um erro 
;e volta ao BASIC 


;a rotina ascii converte um valor de 1 6 bits 
para os caracteres ASCII correspondentes. Na 
-.entrada, o par HL deverá conter o número a 
;converter e imprimir 


ascii 


push 

at 

, salva os registros 

push 

bc 

;alterados por 

push 

de 

;esta rotina 

push 

ix 

« 

push 

ix 

• 

push 

ty 

; 

ld 

ix.valorasc 

;ix aponta p / valorasc 

ld 

ry.dezmil 

;ix aponta p/ dozmil 

ld 

e,(iy-*-#00) 

;de- 10.000 

ld 

d.(iy4#0l) 

9 

xor 

a 

;zera a flag de carry 

sbc 

hl.de 

-.subtrai para testar 



;se o número >■ 10.000 

jr 

nc.asciil 

;Se for maior, vai para asciil 

add 

hl.de 

;Se n5o. soma os 10.000 

inc 

«y 

;incromenta o ponteiro 

inc 

ty 

• 

ld 

e,(iy+#00) 

;de. 1.000 

ld 

d,(iy+#01) 

9 

xor 

a 

;zera a flag de carry 

sbc 

hl.de 

;número >■ 1.000 ? 

jr 

nc.asciil 

;Sim, vai para asciil 

add 

hl.de 

;Nâo, repõe os 1.000 

inc 

»y 

;incrementa o ponteiro 

inc 

iy 

f 

ld 

e.(iy+#O0) 

;do-100 

ld 

d,(iy+#01) 

9 



322 Guta do Programador MSX 


CAP6 

xor 

a 

;zera a flag do carry 


sbc 

hl.d© 

;número >» 100 ? 


jr 

nc.asciil 

;Sim, vai para asciil 


add 

hl.de 

;Não. ropõe os 100 


inc 

»y 

;incrementa o ponteiro 


inc 

•y 

9 


kJ 

ô,(iy+#00) 

;de«io 


ld 

d.(iy+#01) 

• 


xor 

a 

:zora a flag de carry 


sbc 

hl.de 

;numero >- 10 ? 


jf 

nc.asciil 

;Sim, vai para asciil 


inc 

•y 

:N5o. incrementa o 


inc 

«y 

;pontoiro para as 

asciil 

add 

hl.de 

;umdades 

;repõe o valor tirada 

ascii2 

xor 

a 

;zera a flag do carry 


id 

e.(iy+#00) 

;o o contador 
;do»quantidade a 

ascii3 

ld 

d.(ry + #01) 

rsubtrair 

sbc 

hl.de 

;subtrai 


inc 

a 

;incrementa o contador 


K 

nc,ascii3 

;ix<de? Não. continua 


dec 

a 

;Sim, decrementa o 


add 

hl.de 

icontador 

;repôo O valor tirado 


add 

a, #30 

;em excesso 
;soma #30 ao contador 


ld 

(ix+#00).a 

;para obter o ASCII 
correspondente 
;satva no bulfer 


inc 

ix 

;incremonta o ptr. ix 


dec 

e 

;chegou às unidades? 


\r 

z.vclta 

;Sim, sai 


inc 

•y 

;Nào. obtém o próximo 


inc 

•y 

idigito 

volta 

j t 

asci>2 

• 

ld 

a.“$- 

;a=*simbolo do término 


ld 

(ix+#00).a 

:do string usado pelo 

:BDOS 

.salva 


ld 

de.valorasc 

;imprime os 


ld 

c,#09 

;dfgitos 


call 

bdos 

; 


ca II 

linofeed 

.avança a linha 


pop 

» y 

:rocupera os 


pop 

ix 

registros salvos 


POp 

hl 

1 
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pop da 

pop bc ; 

pop af I 

f0 t ;e rotorna 


;tabascii é uma tabela usada pela rotina ascii. 


tabasdi 


dezmil 

defw 

10000 

mil 

defw 

1000 

cent 

defw 

100 

dez 

defw 

10 

uni 

defw 

1 

valorasc defs 

10 


;este buffer armazena 
;os dígitos em ASCII 


;a rotina lineíeed avança a linha 
linefaed 


ld 

e,*0d 

;e=carnage roturn 

ld 

c,#02 

;envia para o video 

call 

bdos 

• 

ld 

e.tfOa 

;e«line feed 

ld 

c.#02 

;envia para o video 

call 

ret 

bdos 

• 

;e retorna 


mensagem_1 

mensagem_2 

mensagem_3 

mansagern_4 


defm "Núm. total de aglomerados : $" 
dofm "Setor inicial do diretório : S" 

defm "Setor final do diretório : $" 

defm "Setor inicial da área de dados : S" 


fim 


equ S 


Listagem em linhas DATA do côdlgo-objeto do programa que apresenta as Informações 
no BPB: 

10 FOR A%-4HD100 TO &HD2A8 
20 R2AD B$ 

30 POKK A% , VAL (" SH M 4-B$) 
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40 NEXT A% 

50 BSAVE "PROG30.BIN", tHDlOO, 6HD2A8 

100 DATA 3A,63,F6,FE,02,C0,3A.F8,F7,FE,03,30,61.B7.28,5E 
110 DATA 5F , OE, 1B, CD, 7D, F3, FE. FF. 28,54, DD, E5, 1 1 , 20. D2 , OE 
120 DATA 09, CD, 7D, F3, DD, El , DD, E5, DD. 6E, OE, DD, 66 , OF, CD, 75 
130 DATA Dl, 11, 42. D2, OE, 09, CD, 7D, F3, DD, El , DD, E5, DD, 6E, 11 
140 DATA DD, 66, 12, CD, 75, Dl. 11, 64, D2, OE, 09. CD, 7D, F3, DD, El 
ISO DATA DD, 6E, OC, DD, 66, OD, E5. 2B, CD, 75, Dl, 11, 86. D2, OE, 09 
160 DATA CD, 7D, F3 , El, CD, 75, Dl , 21, 00, 00, 22 , F0, F7 , C9, 21 . FF 
170 DATA FF, 22, F8, F7, C9, F5, C5, D5, DD, E5, DD, E5, FD, E5, DD, 21 
180 DATA 07 , D2 , FD, 21, FD, Dl , FD. 5E. 00, FD, 56, 01 , AF, ED. 52 , 30 
190 DATA 34,19,FD,23,FD,23. FD, 5E, 00, FD, 56,01, AF, ED, 52, 30 
200 DATA 24, 19, FD, 23, FD, 23, FD, 5E, 00. FD, 56,01, AF, ED, 52, 30 
210 DATA 14, 19, FD, 23, FD, 23, FD, 5E. 00. FD, 56. 01, AF, ED, 52. 30 
220 DATA 04 , FD, 23, FD, 23,19, AF , FD, 5E, 00, FD, 56, 01 , ED, 52, 3C 
230 DATA 30, FB, 3D, 19, C6, 30, DD, 77, 00, DD, 23, 1D. 28, 06, FD, 23 
240 DATA FD, 23, 18, E2, 3E, 24, DD, 77, 00, 11, 07, D2, OE. 09, CD, 7D 
250 DATA F3 , CD, 11 , D2, FD, El , DD, El , El , Dl , Cl , F1 , C9, 10, 27, E8 
260 DATA 03, 64. 00, OA, 00, 01, 00, 00, 00, 00, 00, 00, 00, 00. 00. 00 
270 DATA 00, 1E, OD, OE, 02, CD, 7D.F3, 1E, OA. OE, 02, CD, 7D, F3, C9 

280 DATA 4E,A3. 6D.2E, 20, 74, 6 F, 74,61.6c. 20.64, 65,20,61, 67 
290 DATA 6C, 6F, 6D, 65, 72, 61, 64, 6F, 73, 20, 20, 20, 20, 20, 20, 3A 
300 DATA 20, 24, 53, 65, 74, 6F, 72. 20. 69, 6E, 69. 63, 69, 61, 6C. 20 
310 DATA 64, 6F. 20. 64, 69, 72, 65, 74, A2, 72. 69. 6F, 20,20, 20, 20 
320 DATA 20, 3A, 20. 24, 53, 65, 74, 6F, 72, 20, 66, 69, 6E. 61, 6C, 20 
330 DATA 64, 6F,20, 64, 69, 72, 65, 74, A2, 72, 69, 6F, 20, 20, 20, 20 
340 DATA 20, 20, 20, 3A, 20, 24, 53. 65,74, 6F, 72, 20,69, 6E. 69,63 
350 DATA 69, 61, 6C, 20, 64, 61. 20, AO, 72, 65, 61,20, 64. 65, 20, 64 
360 DATA 61, 64, 6F, 73, 20, 3A, 20, 24, 00 


Listagem do programa de teste: 

100 CLS :KE YOFF:WIDTH 40 

1 10 BLOAD-PROG30.BIN- 

120 DEFUSR-&HD100 

130 REM — IMPRIME O TlTULO 

140 S1S-‘CARACTERlSTICAS DO DRIVE A‘ 

1 50 LOCATE (40-LEN(Sl $))/2,6:PRINT SI SPRINT 
160 A%-USR(1) 

1 70 IF A%— 1 THEN GOTO 1 90 
180 END 

190 REM *** ESPECIFICAÇÃO INVÁLIDA *“ 

200 PRINT ‘ESPECIFICAÇÃO INVALIDA" 

210 END 
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COMENTÁRIOS SOBRE O PROGRAMA 
QUE APRESENTA AS INFORMAÇÕES DO BPB 

O programa acima ó uma boa ilustração de algumas funções do BDOS para a parte de im- 
pressão no video. A única rotina que merece algum destaque ó a que converto um número de 
até 16 bits contido no par HL em caracteres ASCII equivalentes. Esta rotina se torna absolu- 
tamente indispensável quando desejamos apresentar dados numéricos. Aposar de aparente- 
mente complexa, o seu funcionamento pode ser reduzido aos seguintes passos: 


1. Compara se o valor enviado por HL 6 maior ou igual a 10.000. Se for, faz decrementos su- 
cessivos de 1 0.000 à medida em que incrementa o contador. Assim que o último decremento 
resultar num valor menor do que 1 0.000. sai do loop de decremento por este valor; decremen- 
ta o contador que. por sua vez, passa a indicar as dezenas de milhares, o imprime o digito das 
dezenas de milhares. Se. por exemplo, o valor entrado for 50.000, na saida do loop o registro 
A (contador) conterá o valor 5, que somado a #30 (ASCII do número 0) resultará no código 
ASCII do número 5 (#35). 

2. Repetir o mosmo processo para os milhares, centenas, dezenas e unidades. 

3. Imprimir a string com os dígitos da quantidade numérica já convertida em caracteres ASCII. 


Algumas das cartas que recebi me pediam dicas de como acessar a linha de comando no 
MSX-DOS. O termo linha da comando se refere aos comandos passados após o nome de um 
arquivo. Por exemplo, se você entrasse com o comando 

conv a:prog31.gen b:prog31b.gen 

no MSX DOS (após o A>), a linha de comando seria: 

a:prog31.gen b:prog31b.gen 

incluindo o espaço na frente do a:. Vamos, então, passar para um tópico que apresentará as 
dicas necessárias. 


UM POUCO MAIS DO AMfílENTE MSX-DOS 

Você já sabe que, no ambiente MSX-DOS, só podemos executar dois tipos de programas: 
os programas com extensão .BAT (arquivos de lote) e os programas com extensão .COM. 
Existe ainda um terceiro tipo. o .SYS. que não pode ser acessado através do ambiente MSX- 
DOS. Este último tipo só pode ser acessado pela rotina de boot (aquela no setor 0 do disquete), 
já que se trata de um programa que inicializa todo o ambiente desse sistema. Em todo caso, 
você também pode, se desejar, carregá lo ao sair do um programa .COM que tenha feito es- 
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tragos razoáveis na organização do MSX-DOS. Apesar da extensão diferente (.SYS), este ar- 
quivo possui exatamente a mesma estrutura de um arquivo .COM, ou seja, ó carregado a par- 
tir do endereço #0100. e a sua primeira instrução se encontra também nesse endoroço. A 
Tabela 6.7 mostra as principais características dos arquivos .COM e .SYS. 



SYS 

COM 

boúT 

End. de Carregamento 

#0100 

#0100 

-#COOo 

End. de Execução 

#0100 

#0100 

ftcooo 

Modo de Carregamento 

BOOT 

MSX-DOS 

IN ftlvr^CÊ 


Tabela 6.7: Estrutura dos arquivos .SYS e .COM 


O termo BOO T na tabela acima se refere ao fato de que os arquivos SYS podem ser car- 
regados e executados pelas rotinas de boot: a rotina no setor 0 do disquete, acionada polo re- 
set do microcomputador, e a rotina acionada pola instrução JP #0000 (em assembly. é claro) 
a partir de um programa .COM, Este último procedimento só carregará o arquivo .SYS se os 
estragos feitos na memória pelo programa .COM forem muito grandes. 

Vamos passar, agora, a um exemplo que demonstra a utilização da linha de comando nos 
programas COM. 


UM EXEMPLO DE PROGRAMA NO AMBIENTE MSX-DOS 

Para ilustrar mais algumas funçóes da BDOS e mostrar como interpretar a linha de coman- 
do do MSX-DOS. elaborei um pequeno programa de demonstração que tem como finalidade 
converter o conteúdo de um arquivo ASCII de maiúsculas para minúsculas. A rotina de 
convorsão ô feita byte a byte, de modo que este programa é extromamente lento (fica a seu 
critério aprimorá-lo). Entretanto, se vocò quiser acelerá-lo. use um buffer para leitura e outro 
para gravação, com uns 2 Kbytes cada. O algoritmo usado ó o seguinto: 

1 .Inicializas os dois FCBs usados: um para a leitura do arquivo e outro para a gravação do ar- 
quivo já convertido. 

2.lnterpretar o nome do arquivo fornecido na linha de comando. Esta função é realizada pela 
rotina lellnha. Para entender como interpretar a linha de comando, estude bem esta rotina. 

3. Tentar abrir o arquivo passado pela linha de comando para testar a sua existência. 

4,Se o arquivo existir, renomeá-lo com a extensão .BAK. Desta forma, preserva-se o conteúdo 
do arquivo original. 
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5. Criar um arquivo com o nome passado pel- linha de comando. Este arquivo conterá o 
conteúdo do arquivo original (agora renomeado como .BAK). 

6. Procoder à conversão de maiusculas para minúsculas, mantendo inalterados todos os tex- 
tos entre aspas. 

7. Fechar o novo arquivo, para que as suas informações sejam atualizadas no diretório. Se nào 
fizermos isto, o novo arquivo apresentará um tamanho de 0 bytes no diretório. 

Vamos entáo à listagem 


Listagem em assombly Z-80 do côdlgo-fonte do programa de demonstração: 


.programa de demonstração 

;Compilar com o programa GEN80.COM usando a seguinte 
•.sintaxe: 

•GEN80 PROG31 .GEN 

;onde PROG31 .GEN é 0 nome do arquivo-texto com esta 
rlistagem 


bdos 

dma 


equ 00005 

equ 00080 


org 

00100 

call 

inifcb 

call 

lelinha 

call 

copyfcb 

ld 

do.fcbl 

ld 

c.001 

call 

bdos 

cp 

#ff 

ÍP 

z.erroesp 

call 

renomeia 

call 

abrearq 

ld 

de, dma 

ld 

c.#1a 

call 

bdos 

ld 

hl, #0001 

ld 

(1cbH0Oe),hl 

ld 

(fcb2+0Oe),hl 

dec 

hl 


;imcializa o FCB 
;lè o nome do arquivo 
;copia O FCB 
^enta abrir o arquivo 


;Houve erro? 

•.Sim. vai para erroesp 
,Nào. renomeia 
;abre os arquivos 
.ajusta o dma 

9 

;Hl-tamanho do registro 
;no caso, 1 byte 
.especifica o tamanho 

;zera hl 
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h* 

(fcbW#20).hl 

;zera o núm. do registro 


ld 

(fcbU#22),hl 

;inicial 


ld 

(fcb1+#24),hl 

• 


M 

(fcb2+#20),hl 

t 


id 

(fcb2+#22).hl 

• 

« 


ld 

(fcb2+#24),hl 

9 

converte 





call 

le registro 

;lê um registro 


cp 

#02 

;houve erro? 


jp 

nc.errolei 

:Sim, vai para errolei 


cp 

#01 

germinou a leitura 


i r 

2 , fimconv 

;Sím. termina a conversão 


ld 

a.(dma) 

.obtém o registro lido 


cp 

#22 

;sâo aspas? 


V 

2 . aspas 

;Slm, vai para aspas 


cp 

"A* 

;as próximas linhas 




Restam 


V 

C, conver 1 

;se o caractere lido ó 


cp 

#56 

;minúsculo ou não 


K 

nc.conver 1 

;Se não for. vai para 




;conver_1 


add 

a.#20 

;Se for, converte 


ld 

(dma),a 

;salva o valor 




;convertido 

conver _J 

call 

gvregistro 

;grava o registro 


cp 

#01 

;disco cheio? 


ÍP 

z.espdisoo 

;Sim, vai para espdisoo 


or 

a 

;houve erro? 


JP 

nz.errogrv 

:Sim, vai para errogrv 


K 

converte 

;Não, faz a próxima 




;lertura 

fimconv 





ld 

de.fcb2 

.•fecha o arquivo 


ld 

C,#10 



call 

bdos 



ÍP 

#0000 

;retorna ao sistema 


;a rotina aspas espera a ocorrência das próximas aspas 
para continuar a conversão em minúsculas. 

.Desta forma, o texto entre aspas nâo ó convertido 


aspas 


call gvregistro 


;salva as aspas 
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aspas_1 


call 

leregistro 

;lô um registro 

cp 

#02 

-.houve erro? 

jP 

nc.errolei 

:Sim, vai para errolei 

cp 

#01 

germinou a leitura 

K 

z.fimconv 

;Sim, termina a 
.conversão 

W 

a.(dma) 

;obtém o registro lido 

cp 

#22 

;sâo aspas? 

i' 

z.conver 1 

;Sim, retorna para o 
;loop 

.de conversão 

call 

gv registro 

;Nâo. grava o rogistro 

cp 

#01 

;disco cheio? 

ip 

Z.espdisco 

;Sim, vai para espdisco 

or 

a 

;houve erro? 

iP 

nz.errogrv 

;Sim, vai para errogrv 

Jr 

aspas_1 

;repote a busca das 
próximas aspas 


;a rotina leregistro lê um registro de 1 byte e coloca-o 


po DMA 




leregistro 

ld 

hl.#0001 

hUnúm. de registros a 
ler 


ld 

de.fcbl 

de aponta para o FCB 


ld 

c.#27 

faz a leitura do 
registro 


call 

bdoa 



ret 


e retorna 


;a rotina gvregistro grava um registro do 1 byte 
gvregistro 


ld 

hl,#0001 

;hl-núm. de registros a 



;gravar 

ld 

de,fcb2 

;do-aponta para o FCB 

ld 

c,#26 

;grava o registro 

call 

bdos 

• 


ret 


;e retorna 
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.a rotina erroesp imprimo a mensagem do ospocificação 
;inválkJa o rotorna ao MSX-DOS 


erroesp 

ld 

de,mensagem_1 

jimprimo a monsagom do 


ÍP 

impmons 

;erro de especificação 


;a rotina erroloi imprime a mensagem de erro de leitura 
;e retorna ao MSX-DOS 


errolei 

ld 

de,mensagem_2 

;imprime a mensagem de 


ÍP 

impmens 

;erro de leitura 


;a rotina errogrv imprime a mensagem de erro de gravação 
;e retorna ao MSX-DOS 


errogrv 

ld 

de.mensagem_3 

;imprimo a mensagem do 


ÍP 

impmons 

;orro de gravação 


;a rotina ospdir imprimo a mensagom do dirotório som ospaço 
espdir 

ld hl, mensagem 4 ;imprime a mensagem 

ÍP impmens ; 


;a rotina espdisco imprime a mensagem de disco sem espaço 
espdisco 

ld hl,mensagem_5 ;imprimo a monsagom 

jp impmons ; 


;a rotina impmons imprimo uma monsagom no vidoo o rotorna 
;ao MSX-DOS 


impmens 

ld 

c,#09 

;imprimo a 


ca II 

bdos 

;monsagem 


ÍP 

#0000 

:volta ao MSX-DOS 




;com "boot a quente" 
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;a rotina renomeia, muda o nome do arquivo onginal para BAK 
re nomeia 


ld 

hl.fcbl+«0l 

transforo o nome 

ld 

de.fcbWtm 


ld 

bc,#0008 


Idir 

ex 

de, hl 

acrescenta a 

ld 

(hl),"B" 

oxtonsão .BAK 

inc 

hl 


ld 

(hl),"A‘ 


inc 

hl 


ld 

(hl)."K- 


ld 

de.fcbl 

faz a renomeaçáo 

ld 

c,#17 


call 

bdos 


or 

a 

houve erro? 

jp 

nz.orrogrv 

Sim. vai para errogrv 

ld 

hl.fcbU#11 

Não. transfere o novo 

ld 

de,fcbU#01 

nome 

ld 

bc,#000b 


Idir 

ld 

hl.fcbW 12 

inicializa ofcbl 

ld 

(hl), #00 


ld 

de,fcb1+13 


ld 

bc,36*12 


Idir 

rot 


retorna 


;a rotina abrearq abre dois arquivoso arquivo original 
para leitura e o arquivo a sor gravado 

abrearq 


ld 

de.fcbl 

abre o primeiro arquivo 

ld 

c,#0f 

para leitura 

call 

bdos 


ld 

de,fcb2 

abre o segundo 

ld 

c,#16 

arquivo para 

call 

bdos 

gravação 

or 

a 

houve erro? 

jp 

ret 

nz.espdir 
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;a rotina lelinha lê a linha da comando passada apos o 
;nome do programa 

lelinha 


ld 

de.fcbl 

;de aponta para o FCB 

xor 

a 

;zera o acumulador 

ld 

(de). a 

;iniciallza o FCB com o 
.drive default 

ld 

hl.dma*#01 

;hl aponta para o 
;endereço 
;inicial da linha de 
.comando 

call 

pulaesp 

;ignora os espaços e 
.tabulações 

call 

(estacar 

;obtém o primeiro 

;caractere 

.da especificação 

ld 

c.a 

;salva o caractere em c 

inc 

hl 

:aponta para o próximo 
.caractere 

ld 

a.(hl) 

.obtém o caradere 

dec 

hl 

;retorna à posição 
iorigínal 

cp 


;é V ? 

ld 

a.c 

;recupera o suposto nome 
;do drive 

Jr 

n 2 .lenoma_axt 

;não é V. Deve ser o 
.nome do arquivo 
;som especificação 
;do drive 

inc 

hl 

;Se for incrementa 

.hl 

ínc 

hl 

;para apontar o 
;primeiro 

;caractere do nome do 
;arquivo 

sub 

«41 

.subtrai #41 para que o 
;número do drive 
;fique entre 1-A e 
;2.B 

jr 

c.espinvaJ 

Se der carry, a 
.especificação 
.está errada. 

inc 

a 

;a«1 -drive A.-2-drive B 

ld 

(da).a 

•.coloca no lo. byte do 
:FCB 

ir 

lenome_ext 

;lè o nome e a extensão 
;do arquivo 
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;a rotina espinval força um erro na abertura do arquivo 
;caso a especificação do drive esteja errada 


;a«número de drive inválido 
;coloca no lo. byte do 
;FCB 


espinval 


kl 

w 


a,#ff 

(de).a 


;a rotina lenome_ext faz a leitura do nome de um arquivo na 
jllnha de comando 

lenome ext 



inc 

de 

;incrementa o ponteiro 
;do FCB 


ld 

c,#00 

;r egistro usado para 
;assinalar a 

presença de caracteres 
:coringas (* e ?) no 
:nome. 


ld 

b.foa 

:b-núm. de carac. do nome 


call 

lenome 

;lò o nome do arquivo 


ld 

a, (hl) 

;o próximo carac. á “.“? 


cp 

• m 

f 


V 

nz,fimnome_ext 

;N5o. então acabou a 
.leitura 


inc 

hl 

;Sim, então lè a 
;extensão do 
;arquivo 


ld 

b,«03 

;b-núm. de carac. da 
;extensâo 

fimnome_ext 

call 

lenome_0 

.lô a extensão 


ld 

a.c 

pbtém o sinalizador de 


;caracteres 

.coringas 

ret ;e retorna 


rotina lenome faz a leitura de um determinado número de 
;caracteres passados pelo registro B 


lenome 
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call 

testacar 

;testa o caractere 

)r 

c.codesp 

,se for código especial, 

\r 

z.codesp 

;vai para codesp 

lenome_0 call 

testacar 

;testa o caractere 

j r 

c.tstfimle 

;chogou ao fim da 

\ r 

z.tstfimle 

-.leitura? 

inc 

hl 

;Náo. obtém o próximo 
;carac. 

inc 

b 

;se b-0, chegou ao fim da 

dec 

b 

;leitura 

jr 

z,lenome_0 

;obtóm o próximo carac. e 
.lermina a leitura 

cp 

ve a 

;o caractere ó *? 

jr 

z.coringa 

;Sim, substitui por 
;pontos de 

;mterrogação (ooringa) 

ld 

(de), a 

;Nào, coloca o carac. no 
;FCB 

inc 

de 

;incrementa o ptr.do FCB 

dec 

b 

.decrementa o contador 
;de caracteres a ler 

cp 

-?- 

;o último carac. foi •?•? 

\r 

z, acheicor 

:Sim, assinala que achou 
;um caractere coringa 

jr 

lenome_0 

;fecha o loop 

;a rotina coringa faz a 

substituição do caractere 


;pelo número apropriado da "?~ 


coringa 

call 

subscor 

;substitui por coringa 

i(?) 

acheicor 

ld 

c,#01 

.assinala a presença de 


;caracteres corir>gas no 
;nom© 

;do arquivo 


;a rolina codesp incrementa o ponteiro do FCB. no caso 
;da especificação do nome conter caracteres especiais, 
forçando assim um erro de especificação 


codesp 


ld 


a.e 


;a-LSB do ponteiro do 
;FCB 
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add a,b 

ld e.a 

ret nc 

inc d 

rot 


:soma com o número de 

{caracteres 

;que ainda resta por 

;ler 

.coloca o resultado no 
.LSB 

;do ponteiro do FCB 
;voita, so não houve 
;estouro 

;se houve, ajusta o MSB 
:do ponteiro do FCB 
;e retorna 


;a rotina tstfimle testa o fim da lertura na eventualidade 
;de terem sido entrados menos caracteres (menos de 8 para o 
;nome. ou menos do 3 para a extensão) que os permitidos 


tstfimle 

inc 

b 


doc 

b 


ret 

z 


ld 

a,#20 


subscor 


jr preenche 

ld a."?" 


preenche 

ld 

(de), a 


inc 

de 


djnz 

preenche 


ret 



.testa se o contador da 
;caractores 
;a ler chegou a zero 
;(acabou a leitura) 

;Se chegou, volta. 

;Se não, preenche com 
;espaços as 
posições 

;restantes do nome no 
;FCB 


iprepara a substituição 
;por coringas (?) 

;das 

posições restantes do 

;nome 

;no FCB 


;faz o preenchimento 
;de acordo com o número 
ide caracteres que ainda 
{faltava 
;e retorna 
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;a rotina pulaesp pula os espaços e tabulações 


pulaesp 

ld 

a.(hl) 

;obtóm o caractere 


inc 

hl 

;incrementa o ponteiro 


call 

testaesp 

;testa o caractere 


jr 

z.pulaesp 

;se for espaço, testa o 


dec 

hl 

;caractere seguinte 
;decrementa o ponteiro 


ret 


;para a posição correta 
;retorna 


;a rotina testacar testa o caractere apontado por hl. Se 
;for letra (A-Z ou a-z) ou número (0 a 9), volta com 


;NZ e NC, caso contrário, volta com Z,C, ou qualquer combi- 

, nação destas duas flags 



testacar 



ld 

a,(hl) 

a«caractere 

cp 

"a" 

as próximas 4 linhas 
testam 

jr 

c.testacaM 

se o caractere está em 

cp 

#7b 

minúscula. Se nâo 
estiver, 

V 

nc.testacarl 

pula para testacar_1 . 

sub 

#20 

Se estiver, converte 
em maiuscula 

testacar_1 



cp 

«t 4 e 

é - :-? 

ret 

2 

Sim, retorna 

cp 

•• 

ÓV? 

ret 

Z 

Sim, retorna 

cp 

#22 

è aspas? 

ret 

z 

Sim, retorna 

cp 

T 

é-p 

ret 

z 

Sim, retorna 

cp 

T 

ô ’)■? 

ret 

z 

Sim, retorna 

cp 

• * 

é *_*? 

ret 

z 

Sim, retorna 

cp 

T 

ó T? 

ret 

z 

Sim, retorna 

cp 

V 

éV? 

ret 

z 

Sim, retorna 

cp 


é"-“? 
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ret 

z 

;Sim, retorna 


cp 

1 

;ó 


ret 

z 

;Sim. retorna 


cp 

• a 

• 

:'e -7 


ret 

z 

;Sim, retorna 

testaesp 

cp 

#09 

;é tabulação? 


ret 

z 

;Sim, retorna 


cp 

• e 

;é espaço? 


ret 


.Retorna 


;a rotina inifcb inicializa o FC8. O nome do arquivo ó 
;ínicializado com espaços. Desta forma, se o usuário 
;não entrar com a extensão, não ooorrerâ nenhum erro. 
;0 byte do drive (posição #00 do FCB) é inicializado 
;eom #00 (drive default), assim como todos os registros 
;do FCB 


ex 

af.af 

salva o registro A e 
as flags 

exx 


salva os registros BC, 
DE e HL 

ld 

hl.fcbl 

inicializa o FCB com 
#00 

ld 

(hl),#00 


ld 

de.fcbl+#oi 


id 

bc,#0023 

bc-tamanho do FCB-1 

kdir 


preenche o FCB com#00 

ld 

hl.fcbl +#01 

inicializa com espaços o 
nome do 

ld 

(hl),#20 

arquivo no FCB 

ld 

de,fcb1+#02 


ld 

bc.#000a 

bc« 1 0-tamanho do nome 
do arquivo-1 

Idir 


.preenche o nome com 
.espaços 

exx 


;recupera os registros 

ex 

af.af 

.originais 

ret 


,a volta 
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;a rotina copyfcb copia a definição do FCB original para 

;o FCB de cópia (fcb2) 



copyfcb 



exx 


;salva os registros 

W 

hl.fcbl 

;hl aponta para fcbl 

kJ 

de.fcb2 

;de aponta para fcb2 

kf 

bc.#0024 

;bc«comprimento do FCB 

Idir 


;copia 

exx 


;recupera os registros 

ret 


;retorna 


monsagem_1 


defm 

"Especificação inválida" 


dofb 

#Od.«Oa.0Od,#Oa 


defm 

•Sintaxe: prog31 [Drive:] Nome.Ext" 


defb 

#0d.#0a 


defm 

"onde:* 


defb 

#0d,#0a,#09 


defm 

"[Drive:] á um parâmetro opcional" 


defb 

#0d.*0a,#09 


defm 

"Nome ó o nome do arquivo" 


defb 

#0d.#0a.#09 


defm 

‘Ext ó a extensão do arquivoS" 

mensagem_2 


defm 

"Erro de leitura!$" 


mensagem_3 

defm 

‘Erro de gravaçãoIS’ 

mensagem 4 

defm 

"Diretório sem espaço!$" 

mensagem 5 

defm 

"Disco sem espaçoIS* 

fcbl 

defs 

40 

fcb2 

defs 

40 
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Para poder executar o programa acima, vocè deve primoiramenta compilá-lo usando o 
GEN80. Após a etapa de compilação, o GEN80 criará o arquivo PROG31 .COM, que vocè po- 
derá executar. Para saber a sintaxe da linha da comando, entre somente com 

PROG31 

a partir do A>. Neste caso. o programa tentará abrir um arquivo que não toi especificado, o 
quo por sua vez resultará num erro. levando o programa a exibir a sintaxe da linha de coman- 
do. Como todas as listagens apresontadas neste livro, esta apresenta um número suficiente 
de comentários para permitir a fácil compreensão de cada uma das rotinas utilizadas. 

Com este programa, encerramos a nossa viagem pelo sistema de disco do MSX. No proxi- 
mo capítulo, vamos aprender como acessar os drives diretamonte através das portas do FDC 
(sigla, em inglês, do controlador de discos llexiveis). Intoressante observar que a esmagado- 
ra maioria das canas que recebi me pedia justamente as informações contidas no próximo 
capítulo. 


BIBLIOGRAFIA RECOMENDADA 

SISTEMAS OPERACIONAIS DO MSX E SUAS FERRAMENTAS - Sérgio Guy Pinheiro Elias 
e Paulo Roberto Pinheiro Elias - Rio de Janeiro - EDITORA CIÊNCIA MODERNA LTDA. 

SISTEMA DE DISCO PARA MSX - EDITORA ALEPH 

ROTINAS PRONTAS MSX - Richard Spiegel - Rio de Janeiro - LTC - Livros Técnicos e Científi- 
cos Editora Ltda. 
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Capítulo 7 

PROGRAMANDO O FDC 


Este capitulo ó especialmente dedicado a todos aqueles que possuem razoáveis conheci- 
mentos da linguagem assembly no MSX e desejam aprender a operar o FDC diretamente, ou 
seja. sem a ajuda do BDOS ou BIOS. Antes de mais nada. o que é o FDC? O FDC (da termi- 
nologia inglesa Floppy Disk Controller - Controlador de Disco Flexível) é um processador de- 
dicado às operações de IO (Entrada/Salda) com os disk drives, ou soja. é o cérebro da sua 
interface de drive, da mesma forma que o 2 80 é o cérebro do seu MSX. Você já sabe que, 
para acessar um processador paralelo como o processador de video, tem de fazer uso das 
instruções que léom e escrevem em portas do Z 80 (em alguns computadores, principalmente 
nos mais antigos, este acesso pode ser feito por intermédio de endereços), nomeadamente 
as instruções IN e OUT. Para acessar o FDC, não será diferente. 


A ESTRUTURA DO FDC 

O FDC faz uso de cinco registros para as mais variadas funções. Para nós e para o Z 80, 
esses cinco registros nada mais sáo do que portas (como as portas do VDP) com funções es- 
pecíficas. O projeto MSX prevô a utilização de até 8 portas («DO a #D7) pelo FDC. As inter- 
faces controladoras atualmente comercializadas no BRASIL fazem uso somente das cinco 
primeiras (#D0 a #C*) portas. Vejamos a função de cada uma delas. 


PORTA 

funçAo 

•DO 

Comando/Status 

#D1 

Trilha atual 

«02 

Informar o setor 

•D3 

Enviar/receber dados 

#04 

Seleção do drive 


Têbél» 7.1 : Os registros do FDC 


A porta #D0 ó utilizada para informar ao FDC que comando desejamos que ele execute. 
Como exemplos, temos comandos para leitura de um setor, gravação de um setor, leitura de 
uma trilha, gravação de uma trilha, posicionamento do cabeçote, etc. Após a execução do re- 
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ferido comando, a porta #D0 passa a indicar o status da operação, ou seja. o modo como a 
execução procedeu (com erro, sem erro, etc.). Como você pode perceber, esta é a principal 
porta/registro do FDC. 

A porta #01 é utilizada para indicar a trilha atual. Este ó, talvez, o registro mais discutido 
do FDC, já que não preserva o valor ao trocarmos de drive. Isto quer dizer que. se estivermos 
acessando o drive A e o registro de trilha (porta #D1 ) indicar que o cabeçote està na trilha 20, 
'* >JÍ y * «mplo, ao passarmos para o drive B este registro continuará indicando que o cabeçote 
está posicionado na trilha 20. embora o cabeçote do drive B possa estar em qualquer outra 
trilha. Vale lembrar que a numeração de trilhas se inicia em 0 e termina em 39. 

A porta #D2 ó utilizada para enviarmos o número do setor a ler/escrever dentro da trilha já 
selecionada. Aqui, cabe uma observação. A numeração dos setores numa trilha se inicia em 
1 e termina em 9. Desta forma, todas as trilhas possuem a mesma numeração interna (1 a 9) 
para os setores. O FDC não reconhece um comando do tipo "leia o setor 719". O que ole re- 
conhece ó a seqüência de comandos equivalente, ou seja: 

1 Posicione o cabeçote na trilha 39. 

2.Selecione o segundo lado do disquete 
3.Leia o setor 9 desse lado 

Dá para perceber que há o envolvimento do um pequeno algebrismo. não? Mas nào se 
desanime. 

A porta #03 ó o registro de dados do FDC. Em qualquer oporação de leitura ou de gra- 
vação. os bytes a serem lidos/gravados são lidos/enviados seqüencialmente de ou para esta 
porta O que isso quer dizer?" Simplesmente, que não existe a leitura do um setor completo, 
mas sim a leitura do cada um dos 512 bytes quo o compõem. Esta porta também serve para 
enviarmos a nova trilha onde o cabeçote deverá se posicionar. 

A porta #D4 ó o registro do FDC quo controla a seleção das unidades de disco. É interes- 
sante observar que este registro não possui um controle individual para os motores dos drives, 
isto é. quando damos ordem de ligar o motor do drive A. o motor do drive B também é aciona- 
do. Por outro lado. este registro faz a seleção do drive e da face do disquete dentro do referi- 
do drrve, 

Vamos passar agora ao estudo detalhado de cada registro do FDC. 


O REGISTRO mo 

O registro #Do possui dupla função: 

1. Informar ao FDC que comando desejamos que ele execute, e 

2.Retornar com informações sobre o andamento do último comando. 

Devido às funções que desempenha, este é. sem dúvida, o principal registro do FDC. Va- 
mos observar primeiro os comandos que ele oferece. 
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COMANDO 

TIPO 

FUNÇÀO 

Restore 

1 

Posiciona o cabeçote na 
trilha 0 

Seek 

1 

Posiciona o cabeçote na 
trilha especificada 

Step 

1 

Move o cabeçote uma trilha 
na direção do último movi- 
mento 

Step in 

1 

Move o cabeçote uma trilha 
para a frente 

Step out 

1 

Move o cabeçote uma trilha 
para trás 

Road sector 

2 

Lê um setor 

Write sector 

2 

Grava um setor 

Read address 

3 

Lê 0 byte do ID da trilha 

Read track 

3 

Là uma trilha 

Write track 
Force 

3 

Grava uma trilha 

interrupt 

4 

Força a parada da execução 
do último comando 


Tabela 7.2: Os comandos do FDC 


Cada comando acima ó o resultado de um mapeamento por bits do valor enviado para a 
porta #D0. Vejamos o mapeamento por bits de cada um dos comandos acima. 



COMANDO 

BITS 

VALOR TPICO 



7 6 5 4 3 2 1 0 

(em hexa) 


Restore 

OOOOOVMrO 

#01 


Seek 

0 0 0 1 0 V fl rO 

#11 


Step 

001 uOVrlrO 

#31 


Step In 

0 1 0 u 0 V ri rO 

#51 


Step out 

0 1 1 u 0 V ri rO 

#71 

'L 

Read sector 

1 0 0 0 F2 FIO 

#80 


Write sector 

1 0 1 0 F2 Fl 0 

#A0 


Read address 

1 1 0 0 0 E 0 0 

#C4 

$ 

] Read track 

1 1 1 0 0 E 0 0 

#E4 


Write track 

1 1 1 1 0 E 0 0 

#F4 


Force 




interrupt 

1 1 0 1 0 0 0 0 

#D0 


Tabela 7.3: Mapeamento por bits dos comandos do FDC 


A codificação usada nos comandos acima ó a seguinte: 
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V - Flag de verificação (bit 2) 

V ■ 1 - Verifica a trilha-destino 

V - 0 - Não verifica 


ri e rO - Retardo do motor de passo (bits 0 e 1 ) 
ri rO 

0 0 6 milissegundos 

0 1 12 milissegundos (valor recomendado) 

1 0 20 milissegundos 

1 1 40 milissegundos 


u - Flag de atualização do registro da trilha (bit 4) 

u • 1 - Atualiza o registro da trilha 
ü - 0 - Náo atualiza 


E Espera de 40 milissegundos (bit 2) 

E - 1 - Espera 40 milissegundos 
E ■ 0 - Não espera 


F2 Flag de seleção de lado (bit 3) 

F2 ■ 0 - Compara pelo lado 0 
F2 - 1 - Compara pelo lado 1 


F1 - Flag de comparação (bit 1 ) 

Fl ■ 1 - Habilita a comparação de lado 
F1 ■ 0 - Desabilita a comparação de lado 


Tabela 7.4: Codificação usada nos comandos do FDC 


O comando STEP depende da utilização prévia do comando STEP IN ou STEP OUT pa- 
ra que o FDC saiba em que sentido deslocar o cabeçote. Tome cuidado ao usar estes coman- 
dos dentro dos limites de trilha (0 a 39 para drives de 5 1/4* e 0 a 79 para drives de 3 1 /2“). 
Embora a maioria dos drives de 5 1 /4" permita o acesso de 42 (0 a 41 ) trilhas, recomendo que 
você se limito ao padrão estabelecido de 40 trilhas. 
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O ler mo motor de passo se aplica a um pequeno motor de alta precisão que tem como 
função deslocar o cabeçote de leitura/gravação para frente e para trás, em incrementos pre- 
cisos correspondentes ao salto de uma trilha para outra. Quando esto motor se desregula, os 
saltos de uma trilha para outra não são mais respeitados, ocasionando erros de leltura/gra- 
vação. Assim sendo, podemos conduir que existem dois motores num drive: o motor de pas- 
so e o motor que rota o disquete k velocidade de 300 rpm (rotações por minuto). Nào vamos 
nos deter em exemplos agora, )á que o final deste capitulo apresenta vários deles sobre os co- 
mandos acima. 

Vamos passar agora à codificação usada pelo FDC no registro #D0 para relatar o anda- 
mento de uma operação. Para verificação do tipo de comando, consulte a Tabela 7.2. 


BIT 

NOME 

FUNÇÃO (quando em 1 - setado) 

0 

Ocupado 

Comando em progresso 

1 

índice 

Encontrada a marca de índice 

2 

Trilha 0 

Cabeçote posicionado sobre a 
trilha 0 

3 

Erro de CRC 

Erro de soma em relação ao ID 

4 

Erro de busca 

Erro de posicionamento do cabeçote 

5 

Cabeça 

Não é usado nos drives do MSX. Só 
tem uso nos drives de 8". 

6 

Proteção 

Indica que o disquete está prote- 
gido contra gravação 

7 

Não pronto 

Indica que o drive ainda nào atin- 
giu a velocidade correta 


Tabela 7.5: Status para os comandos dos tipos 1 e 4 


BIT 

NOME 

FUNÇÃO (quando em 1 - setado) 

0 

Ocupado 

Comando em progresso 

1 

DRQ 

Data Request (requisição de dados) 
ativado na transferência de dados 

2 

Perda de dados 

O computador não responde ao DRO em 
tempo 

3 

Erro de soma 

Se o bit 4 estiver setado, ocorreu 
erro no campo ID; se não, erro no 
campo de dados 

4 

Registro 

Trilha, setor ou lado nào encon- 
trado 

5 

Erro 

Erro de gravação 

6 

Proteção 

Proteção contra escrita 

7 

Nào pronto 

O drive nào atingiu a rotação 
correta 


Tabela 7.6: Status para os comandos dos tipos 2 e 3 
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O termo marca de índice está relacionado ao pequeno furo, ao lado do furo central, exis* 
tente nos disquetes de 5 1/4". Este pequeno furo tem como função detectar a posição do se- 
tor 0 numa trilha. Exatamente abaixo desse furo existe no drive uma pequena luz. Ao coincidir 
o furo da midia (o disquete propriamente dito) com o furo da capa do disquete, a luz passa pe- 
los dois e atinge um mecanismo sensível à ela, que por sua vez informa ao FDC a detecção 
da marca de Indrce. Desta forma, o FDC saberá que, a partir desse ponto, poderá acessar o 
setor 0 da trilha sobre a qual o cabeçote está posicionado. Vale lembrar que a proteção contra 
escrita utiliza um mecanismo semelhante, de modo que náo adianta proteger o seu disquete 
com fita adesiva transparente. É interessante observar que os drives para disquetes de 3 
1/2" só fazem uso do sistema ótico para detectar a proteção contra gravação. A detecção da 
marca de índice á feita por um pequeno fmã grudado no prato do motor de rotação, na parte 
inferior do drive. De um lado do drive existe uma pequena bobina sobre a qual a passagem do 
ímã induz uma pequena corrente que, então, ativa o circuito que detecta a marca de índice. 
Tudo Isto se deve à filosofia do disquete de 3 1/2": um disquete lacrado que não apresenta 
nenhum orifício externo que permita a exposição da mídia. 

Após o envio de cada comando, torna-se necessário verificar se ele já foi executado ou 
não. Isto é necessário porque o FDC depende de movimentos mecânicos, que possuem uma 
velocidade inoomparavelmente menor do que a velocidade de execução de uma instrução em 
ASSEMBLY. Por outro lado, o próprio FDC não é tão rápido quanto o Z-80, o que nos obriga 
a provocar um retardo antes de começar a examinar o andamento da operação. Embora pareça 
que não, a sincronização desses tempos relativos ó uma tarefa extremamente simples, como 
veremos nos exemplos do final deste capítulo. Não obstante, cabe lembrar que justamente 
nesta temporização residem os problemas de determinadas rotinas que deixam de funcio- 
nar. 


O REGISTRO Ml 

Este registro armazena o número da trilha atual. Como já vimos, 0 FDC não possui um re- 
gistro deste para cada drive, o que nos obriga a manter uma tabela com o posicionamento 
atual dos respectivos cabeçotes. "Mas, por que tanto trabalho?" Rapidez! Como sabemos, uma 
trilha possui vários setores, logo, se o próximo setor a ser acessado estiver na mesma trilha 
que o anterior, para que perder tempo reposioonando o cabeçote? Não se esqueça que para 
ler um disco de 3 1 /2" de face dupla existem 1 440 setores e, se formos reposicionar o cabeçote 
para a leitura de cada setor, gastaremos tempo em 1440 reposicionamentos; já se aproveitar- 
mos o esquema de acompanhamento por tabela, gastaremos o tempo necessário para fazer 
apenas 80 (número de trilhas) reposicionamentos. É um mátodo multo mais inteligente, não? 

O registro #D1 serve tanto para leitura (IN) como para escrita (OUT). Pelos motivos expos- 
tos anteriormente, não nos interessa muito a leitura de tal registro, poróm, para reposicinar o 
cabeçote numa nova trilha precisamos antes informar ao FDC o número dela. enviando-o por 
esta porta/regístro esse número. 
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O REGISTRO #D2 

Embora possa ser usado para leitura do setor atual, este registro só tem sentido para o en- 
vio do número do setor (1 a 9) que queremos acessar dentro da trilha já especificada, ou a ser 
especificada. A única observação cabe ao número do setor, que se inicia em 1 e termina em 
9, ao contrário de comandos em BASIC que acessam o setor 0. 


O REGISTRO #D3 

Este registro ó a porta utilizada para a transferência de dados entre o FDC e o Z 80. Além 
de ser utilizado na leitura/gravação de setores e trilhas, este registro também serve para en- 
viarmos o número da trilha sobre a qual desejamos posicionar o cabeçote, usando o coman- 
do SEEK. Durante as leituras ou gravações de trilhas ou de setores, os bytes são transferidos 
um a um por intermédio desta porta. Isto quer dizer que, se estivermos lendo um setor, tere- 
mos de fazer 512 leituras na porta. 


O REGISTRO HD4 

Este último registro é o responsável pelas seleções do drive, do lado do disquete e pelo aeio 
namento dos motores dos drives. Vejamos a codificação empregada neste comando. 


BIT 

FUNÇÃO 

0 

Drive A (0) 

1 

Drive B (1) 

2 

Drive C (2) 

3 

Drive D (3) 

4 

Seleção da face do disquete (0 ou 1 ) 

5 

Acionamento dos motores 

6 

Habilita espera de dados 

7 

Densidade: 0-simples, 1 -dupla 


Ttbêlt 7.7: Codificação do registro #D4 


O bit 7 não tem função definida no MSX, de modo que podemos deíxá-k) sempre com o 
valor 0. O bit 6 deve estar sempre setado (em 1) para podermos acessar os drives de 3 1/2“, 
que são, em geral, mais lentos que os de 5 1/4". O bit 5. quando setado, aciona os motores de 
todos os drives conectados a uma mesma interface. Da mesma forma, quando o bit 5 é colo- 
cado em 0 (resetado). provoca a parada desses motores. O bit 4 ô o que apresenta uma lógi- 
ca de acesso mais complexa. Para entender quando colocá-lo em 1 e quando colocá-lo em 0, 
precisamos seguir algumas etapas prévias, começando pelo cálculo da trilha e do setor den- 
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GAP.? 

Uo da trilha, baseado no número do setor passado na forma tradicional (de 0 a 719, no caso 
de disquete de 5 1/4’ de face dupla, e de 0 a 1439, no caso de disquete de 3 1/2’ de face sim- 
ples). conforme veremos abaixo. Os brts 0 a 3 selecionam (operaçáo denotada pela pequena 
luz na parto frontal do drive) o dnve a ser acessado. Se você quiser fazer experiências, entre 
com o seguinte programa em BASIC: 


10 PRINT ‘ACIONANDO O DRIVE A ..." 

20 OUT &HD4.&B00 100001 
30 FOR A%-1 TO 5000.NEXT A% 

40 PRINT TARANDO O DRIVE A E MANTENDO A SELEÇÃO..." 
50 OUT &HD4.&B00000001 
60 FOR A%-1 TO S0O0:NEXT A% 

70 PRINT "TERMINANDO A SELEÇÃO DO DRIVE A..." 

00 OUT &HD4.&B00000000 


CÁ IX,' U LO DA TRILHA E DO SETOR 

O cálculo da trilha e do setor dentro dessa trilha não ê táo complicado quanto possa pare- 
cer Como sabemos, um disquete possui 9 setores por trilha em cada lado (não esquecer que 
nos disquetes de face dupla existe uma trilha de cada lado). O que temos de fazer, então. 6 
uma divisão do número do setor passado pelo número de setores por trilha. Vamos exempli- 
ficar para tornar mais claro. Suponha que vocé deseje acessar o setor 1 82 de um disquete de 
5 1/4' de face simples (180 Kb). As contas seriam as seguintes: 

Número do setor: 182 

Número de setores 

por trilha:: : 9 

Trilha a acessar : INT (182/9)«20 

Setor a acessar : 182-(INT(l82/9))’9+1-3 

Logo, teríamos de acessar o setor 3 da trilha 20 no lado 0. já que o disquete de face sim- 
ples não apresenta lado 1. Note que a expressão 

l82-(INT(182/9))*9 

ó o resto da divisão 182/9. Como esse resto estará sempre na faixa de 0 a 8, temos de somar 
1 para colocá-lo na faixa de 1 a 9. que vem a ser a faixa usada pelo FDC na numeração dos 
setores (na verdade, o FDC poderia numerar de 0 a 9 ou de 10 a 19, ou ainda em qualquer 
outra faixa que você bem entenda, mas o padrão MS-DOS estabelece que a numeração deve 
estar entre 1 e 9). Foi difícil? Claro que não! *Mas, e se o disquete fosse de face dupla?" Nesse 
caso, teríamos de apelar para um macete. Observe que o maior setor possível num disquete 
de face simples é o 359 (360 setores numerados de 0 a 359), o que implica afirmar que a di- 
v jáo ãci-na resultará em valores para trilha entre 0 e 39. que vem a ser exatamente o núme- 
ro de tnlhas no disquete (40 trilhas numeradas de 0 a 39). No disquete de face dupla (ainda 
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do 5 1/4*), o maior setor ó o 71 9 (720 setores numerados de 0 a 71 9), logo, o resultado da di- 
visão acima resultará em valores para trilha entre 0 e 79. Como sabemos, o disquete de face 
dupla só possui 40 trilhas de cada lado. Então, o que fazer? Vamos tomar dois exemplos: achar 
a trilha e o setor nas trilhas do setor 7 e do setor 15. 

Setor 7: 


Número do setor: 
Número de setores 
por trilha : 

Trilha a acessar : 
Setor a acessar : 


7 


9 

INT (7rê)-0 
7-(INT(7/9))*9+1 -8 


Setor 15: 


Número do setor: 
Número de setores 
por trilha : 

Trilha a acessar : 
Setor a acessar : 


15 

9 

INT (15/9)-1 
15-(INT(15/9))*9+1-7 


Como sabemos,o setor 7 está no lado 0 da trilha 0. e o setor 15 no lado 1 da trilha 0. 0 que 
o resultado nos informou é que o setor 7 está na trilha 0 e o sotor 1 5 na trilha 1 . Parece estra- 
nho. não? Vamos ver mais um exemplo: do setor 25 e do setor 33. 

Setor 25: 


Número do setor: 
Número de setores 
por trilha 
Trilha a acessar : 
Setor a acessar : 


25 

9 

INT (25/9)-2 
25-(INT(25/9))*9+1 -8 


Setor 33: 


Número do setor: 
Número de setores 
por trilha 
Trilha a acessar : 
Setor a acessar : 


33 

:9 

INT (33/9)«3 
33-(INT(33/9))*9+1»7 


Os resultados acima já revelaram mais algumas coisas: 
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1.0 setor 15 fica no lado 1 da trilha 0, e não na trilha 1. 

2.0 setor 25 fica no lado 0 da trilha 1 , e não na trilha 2. 

3.0 setor 33 fica no lado 1 da trilha 1 . e não na trilha 3. 

Vocè reparou que os setores que ficam no lado 1 de uma trilha dão como resultado trilhas 
ímpares (1 e 3 para os setores 1 5 e 33. respectivamente)? Vocè também reparou que os va- 
lores atribuídos às trilhas correspondem ao dobro dos valores reais (1 para o setor 15. 2 para 
o setor 25 e 3 para o setor 33)? Note que INT (1/2) - 0, INT (2/2) - 1 e INT (3/2) -1.0 que 
podemos concluir, então? Simplesmente que sempre que o resultado para a trilha for Impar, 
devemos selecionar o lado 1 do disquete. Por outro lado, devemos sempre dividir por dois o 
valor achado para a trilha. 'Mas, como saber, em assembly. se um determinado valor é ímpar 
ou par?" Basta examinar o bit 0! Este é o único bit que fornece a unidade: 2°-1, 2 1 «2, 2^-4. 
T 3 «8. 2 4 -16, 2 5 -32. 2 6 «64 e 2 7 »128. Para o caso dos disquetes de 3 1/2". repetem-se exata- 
mente os mesmos raciocínios, o que nos permite desenvolver um algoritmo geral para todos 
os tipos de disquete do MSX-DOS. 

Para ilustrar as informações acima, vamos examinar um programa que faz a chamada for- 
matação lógica de setores. 


O PROGRAMA PARA A 
FORMATAÇÃO LÓGICA DE SETORES 

Este programa tem como ob|etivo formatar logicamente, ou seja, sem perder as infor- 
mações, um determinado setor que esteja apresentando erro de leitura (na verdade, erro de 
CRC). que no BASIC recebe o nome de erro de E/S. Por se tratar de um programa de demons- 
tração. não leva em conta certas ocorrências, como a possibilidade do disquete estar protegi- 
do contra gravação, etc., embora faça o teste para cada uma das hipóteses possíveis. Fica a 
seu cargo implementá-lo, Uma boa parte das rotinas jà foi utilizada nos capítulos anteriores, 
ficando a novidade com as rotinas de acesso direto ao FDC para leitura e gravação de setores. 
Vale lembrar que as rotinas aqui apresentadas funcionam tanto em drives de 5 1/4" co- 
mo de 3 1/2” que utilizem a Interface padrão MICROSOL (todas, com a exceção da inter- 
face da SHARP) 


Listagem em assembly Z-80 do códlgo-fonta do programa para formatação lógica: 

programa para formatação lógica 

; Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

.GEN80 PROG32.BIN-PROG32.GEN 

:onde PROG32.GEN é o nome do arqurvo-texto com esta listagem 
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versão 

bufset 

txtnam 

valtyp 

argusr 

scrmod 


inicio 



equ 

#002d 



equ 

#f351 



equ 

#f3b3 



equ 

#1663 



equ 

#f7f8 



equ 

#fca1 


defb 

#fe 


;simula em CP/M 

defw 

inicio 


,0 cabecalho de 

detw 

fim 


;um arquivo 

defw 

inicio 


;.BIN 


org 

#d000 



ld 

a.(scrmod) 

;obtóm o modo da teta 

or 

a 

;modo texto 7 

ret 

nz 

;NãO, volta 

ld 

a, (valtyp) 

parâmetro inteiro? 

cp 

#02 


ret 

nz 

;Nâo, volta 

ld 

a, (argusr) 

;0nve > B 

CP 

#03 


ret 

nc 

;Sim, volta 

or 

a 

;ó zero? 

ret 

z 

;Sim, volta 

di 


;desabilita as interrupções 

ld 

ix, par drive 

;ix aponta para 



;a tabela com os 



parâmetros do 



;drtve 

call 

leboot 

;LÔ o boot para 



;saber o tipo de 



.disquete 

(d 

a,-tr 


call 

tela 

jconstrói a primeira 



feia 

call 

examel 

.examina os setores 

ld 

a,(ix+#03) 

•pbtém o tipo de 



formatação 

cp 

#fa 

;é de 80 trilhas 

jr 

nc.fi mrot 

;Não, termina 

ld 

a, "4" 

;Sim, constrói 

call 

tela 

;a segunda 


feia 
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fimrot 


call 

exame_2 

;examina os setores 

cal! 

rodadrive 

;para o drive na trilha 0 

ei 


;habilita as interrupções 

ret 


;e retorna 


;a rotina exame_t faz o exame das primeiras 40 trilhas do 
idisquete 


exame 1 


Id 

ld 

l' 


hl.#0000 

(setatual).hl 

exame 


;hl-setor inicial 
;satva 

rvai para exame 


;a rotina exame_2 faz o exame das ultimas 40 trilhas num 
;disquete de 80 trilhas 

exame_2 

kJ hl, 720 ;hl-setor inicial 

ld (setatual).hl .salva 


;a rotina exame faz o exame do disquete propriamente dito 


exame 

ld 

hl,#0005 

;X-0 Y-5 


ld 

b.40 

;b-número de trilhas 

exame_3 


push bc 

;salva b 


push 

hl 

;salva as coordenadas 


ld 

a,(ix+#02) 

;a-número de lados 


ld 

b.a 

;b-número de lados 

exame_4 

push 

bc 

;salva b 


ld 

b.9 

;b-9 setores por trilha 

exame_5 

push 

bc 

;salva b 


push 

hl 

;salva as coordenadas 


ld 

de.(bufset) 

daz a leitura 


ld 

hl.(setatual) 

• 


ld 

b,#01 

1 


call 

lesetor 

.lô o setor 


jr 

nc,exame_6 

;Se não houve erro, 


ld 

de.(bufset) 

;pula para exame_6 
;Se houve, tenta 


ld 

hl.(setatual) 

;regravaro setor 
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ld 

b,#oi ; 



ca II 

gravsetor ;grava 0 setor 


jr 

nc,exame_6 ;Se conseguiu, pula para 



;exame 6. Se não. 


ld 

(setatual).hl ; 

salva o próximo setor 


pop 

hl ;informa que o 


push 

hl ;setor não pode mais 


call 

posit ; 

ser recuperado 


ld 

a,T ;(l)rrecuperável 


out 

(#98), a ; 



j' 

exame 7 ;pula para exame_7 

exame_6 





ld 

(setatual).hl 

salva o novo setor 


pop 

hl 

coloca um quadrado 


push 

hl 

indicando tudo ok. 


call 

posit 



ld 

a,#db 



out 

(#98), a 


oxame_7 





pop 

hl 

recupera as coordenadas 


inc 

1 

incrementa a linha 


pop 

bc 

repete para o próximo setor 


djnz 

exame .5 



pop 

bc 

repete para o próximo lado 


djnz 

exame_4 

se existir. 


pop 

hl 

recupera as coordenadas 


inc 

h 

aponta para a próxima trilha 


pop 

bc 

repete para as demais 




trilhas 


djnz 

exame_3 



ret 


sai do exame 


;a rotina leboot lô os setores 0 do disquete-fonte e de 
;destino para comparar os tipos e obter o número de 
;setores a copiar. O parâmetro da função USR passa 
p número do drive a analisar 


leboot 


ld 

kJ 

ld 

ld 

ld 

ld 

or 


hl, 51 2 

(numbytes).hl 
a, #09 

(numsetor).a 
a.(argusr) 
(drive), a 
#20 


;inicializa o número de 

;bytes por setor 

;envia o número de setores 

por trilha 

;obtóm o drive 


;soma oom o parâmetro 
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kl 

(ix+#00).a 

call 

rodadrive 

Id 

do.(bufset) 

kl 

hl, #0000 

ld 

b.#01 

call 

lesetor 

ld 

ly.(bufset) 

ld 

l,(iy+#0b) 

ld 

h,(ly+#0c) 

ld 

(numbytes).hl 

ld 

a,(ry+#18) 

ld 

(numsetor).a 

ld 

a,(ry+#15) 

push 

af 

ld 

a.(iy+#1a) 

ld 

(ix+#02),a 

pop 

af 

ld 

(ix+#03),a 

ld 

ret 

(ÍX4-#01 ),#00 


para acioná-lo 

poloca na trilha 0 
;obtém o endoroço 
;do buffer 
;hl-núm. do setor 
;a ler 

;b-número de setores 
;a ler 
;lâ o setor 

;obtóm o número de bytes 
por setor 


;obtém o número de setores 
por trilha 

pbtém o tipo de formatação 
;sa!va na pilha 
;obtóm o número de lados 
;ajusta a tabela 
;recupera o tipo 
;ajusta a tabela 
;ajusta a trilha 
, -volta ao BASIC 


;a rotina inidrive prepara o drive para leitura 
;ou gravação de setores. Esta rotina calcula a 
itrifha e setor onde posicionar o cabeçote 


inidrive 

push 

de 

,‘salva o end. do buffer 


call 

testcond 

;espera liberação 


ld 

a.(numsetor) 

;a-núm. de setores por trilha 


ld 

c.a 

;c«núm. de setores por trilha 

drvide_1 

ld 

b,#08 

prepara a divisão em 8 bits 

add 

hl, hl 

;do número do setor desejado 


ld 

a.h 

pelo número de setores 


sub 

c 

por trilha 

divkJe_2 

V 

ld 

inc 

djnz 

c,divide_2 

h.a 

1 

divk)e_J 



inc 

h 

;h-núm. do setor (1 a 9) 


ld 

a,(ix+#00) 

parâmetro para ligar 


ld 

e,a 

;salva em e 


ld 

a,(ix+#0?) 

pbtóm o núm. de lados 
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dec a 

ld a.e 

jr z.inidrivel 

srt I 


jr nc.lnidriva 

or #10 


inidrivel 

ld d, a 

ld a,(ix+#03) 

rrca 
rrca 

and #c0 

or d 

ld a,d 

out (#d4),a 

call teslcond 

ld a,h 

out (#d2),a 

call testcond 

ld a.(ix+#0l) 

out (#d1),a 

cp I 

jr z, acesetor 

ld a,l 

out (#d3),a 

ld (ix+#01).a 

ld a. #11 

out (#dO),a 

call testcond 

ld b,#10 

call espora 


;face simples? 

;Sim, vai para inidrive_1 
;divide a trilha por 2 
;o número da trilha 
;ó Impar (lado 1)? 

1 ;Não, vai para imdrive_1 

;Sim. muda o parâmetro para 
;acessar o lado 1 


;d-seleção 
;a-tipo de form. 


;nova seleção 

;salva em d 

;liga o motor do drive 

;espera liberação 

;envia o setor 

• 

, espera liberação 
;a*-trilha anterior 
;envia o número 
;já está na nova trilha? 
;Sim, vai para inidrive_2 
;Náo, posiciona o 
;cabeçote na trilha 
;atualiza a variável 


;espera liberação 


,a rotina acesetor serve aos propósitos de leitura e/ou 
;gravação de um setor. Na entrada, de-bufter em RAM e 
;hl-número do setor. Os labeis drive, numsetor e densid 
.devem estar corretamente preenchidos 


acesetor 


;recupera o ptr. p/ buffer 
;e-núm. de tentativas 
;salva o end. do buffer 


acesetor 1 


pop 

ld 

push 


hl 

e,5 

hl 
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push 

de 

;salva núm. de tentativas 


call 

testcond 

;ospera liberação 

acesetor2 

kJ 

a. #80 

;a-comando de leitura 


bit 

6.d 

;espera ativada? 


V 

z.acesetor3 

;Náo, vai p/ acosetor3 


or 

#02 

;habilita comparação 


bit 

4, d 

;é lado 1 ? 


V 

Z,acesetor3 

:N5o. vai para acesetorS 


or 

#08 

;Sim, faz a comparação 




pelo lado 1 

acesetor3 

out 

(#d0),a 

;enviao comando 


ld 

b,#03 

;laço do espera para 


call 

espera 

;smcronização 


ld 

c,#d3 

;a-porta de dados do FDC 


ld 

de.fimacesso 

;de-end. final 


push 

de 

;safva end. final na pilha 

acesetor4 

in 

a.(#dO) 

;lé status do FDC 


rrca 


;acabou a leitura? 


ret 

nc 

;Sim, vai para fimacesso 


rrca 


;Náo. espera chegar um byte 


jp 

nc.acesetor4 


acesetorS 

ini 


;lè/oscreve (outi) um byte 


JP 

acesetor4 

prepara nova leitura/escrita 

fi maces so 





pop 

de 

;recupera núm. de tentativas 


pop 

hl 

;recupera end. do buffer 


in 

a,(#d0) 

pbtôm o status do FDC 

acesetor6 

and 

#9c 

:correu tudo bem? 


V 

z.saiacesso 

;Sim, volta 


bit 

6, a 

;No caso de escrita, o disco 


j r 

nz.comerro 

;estava protegido? 


dec 

e 

,1az mais uma tentativa 


1 r 

nz.acesetorl 



bit 

4,a 

;houve erro de busca? 


V 

nz.comerro 

:Sim, vai para comerro 


bit 

3.a 

;houve erro de CRC? 


j' 

nz.comerro 

;Sim, vai para comerro 




;Não. então houve perda de 




;dados 

oomerro 





ld 

a.#01 

;indica erro 

saiacesso 





call 

prepfim 

prepara a salda 


ret 


;e volta 


;a rotina prepfim prepara a saída da última operação 
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propfim 


push 

a! 

;salva af 

ld 

a,#dO 

^orça o término 

out 

(tfdO).a 

• 

call 

testcond 

.espera liberar 

pop 

ret 

af 

;rocupera af 
;e volta 


;rotina para leitura de um setor, hl-núm. do setor, de-end. 
;em RAM do bufler para o setor 

leselor 

ld ly.parleitura 

ld a,(ry+#00) 

ld (acesetor2+1),a 

kJ a,(iy+#01) 

ld (acesetorS+1 ),a 

ld a,(iy+#02) 

ld (acesetor6+1),a 

lesetor_1 

push hl 

push bc 

push de 

call inidrive 

pop do 

ld hl.(numbytes) 

add hl.da 

ex de, hl 

pop bc 

pop hl 

inc hl 

djnz lesetor_1 

or a 

ret z 

sd 
ret 

parleitura 

dofb #80,#a2,#9c 


;rotina para a gravaçào de um setor, hl-núm. do setor, 
;de-end em RAM do buffer do setor 


;iy aponta para os parâmetros 
;de loitura 

;a-comando de leitura 
;modifica a rotina acosetor 
;a-instruç5o Ini (leitura) 
;modillca a rotina acesetor 
;a-paròmetro de venticaçáo 
;da loitura 

-.modifica a rotina acesetor 

;salva hl 
;sa!va bc 
;sah/a de 

^az a leitura de um setor 
;recupera o buffer 
;soma com o número de bytes 
;por sotor 

;recupera os outros registros 

;aponta para o próximo setor 
;ló os outros setores 
;houve erro? 

;N5o, volta. 

;Sim. sinaliza 
;e retorna 
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gravsetor 





id 

iy . parescrita 

;iy aponta para os parâmetros 




;de escrita 


ld 

a,(iy+#00) 

;a-comando de escrita 


Id 

(acesetor2+1),a 

;modifica a rotina acesetor 


ld 

a,(ry+#01) 

;a=instruçáo outi (escrita) 


Id 

(acesetnr5+ 1 ),a 

;modiftca a rotina acesetor 


ld 

a,(iy+#02) 

la-paràmetro de verificação 


ld 

(acesetor6+1) 

,a;da escrita 

gravset 1 





push 

hl 

salva os registros 


push 

bc 



push 

de 



ca II 

inidrive 

grava um setor 


pop 

de 

recupera o buffer 


ld 

hl.(numbytes) 

soma com o número de bytes 


add 

hl.de 

por setor 


ex 

de.hl 



pop 

bc 

recupera os outros registros 


pop 

hl 



inc 

hl 

aponta para o próximo setor 


djnz 

gravsetl 

grava os outros setores 


or 

a 

houve erro? 


ret 

z 

Não. volta 


sd 


Sim. sinaliza 


ret 


e retorna 

parescrita 





defb 

#a0.#a3,#fc 



pardrive 

defb 

#21 

parâmetro p/ ligar 


defb 

#00 

drilha atual 


defb 

#01 

;densidado 


defb 

#f9 

;tipo de formataçâc 


;rotma que pára o motor do drive sem mexer no cabeçote 
paradnve 


push 

af 

;salva o registro afetado 

xor 

a 

;zera o registro a 

out 

(#d4),a 

;envia o comando de parada 

pop 

af 

.recupera o registro 

ret 


‘.retorna 
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;rotina para deslocar o cabeçote ató a trilha zero e 
;parar o drive. Esta rotina deve ser usada sempre que 
;se desejar parar o drive. 


rodadrivo 


push 

af 

;salva os registros afetados 

push 

bc 


push 

de 


push 

hl 


k) 

a.(drive) 

;obtóm o drive 

ld 

e,#20 

;comando para ligar o motor 

or 

e 

;a«comando para acionar 

out 

(#d4),a 


call 

testcond 

;espera liberação 

ld 

a. #02 

;a-comando de inicialização 

out 

(#dO),a 

.envia o comando 

call 

testcond 

;espera liberação 

ld 

b,200 

;dâ um tempo para o ajuste 

call 

espera 

;das partes mecânicas 

call 

paradhve 

;pára o motor 

pop 

hl 

;recupera os registros 

pop 

de 


pop 

bc 


pop 

af 


ret 


;retorna 


;rotlna para estabilização das parles mecânicas do drive 

espera 


ex 

(sp).hl 

;retardo para sincronização 

ex 

(sp).hl 

• 

djnz 

ret 

espera 

• 

;retorna 


;rotina para testar a liberação do FDC 


testcond 


ex 

(sp).hl 

;retardo para sincronização 


ex 

(sp),hl 



ex 

(sp).hl 



ex 

(sp).hl 


testcond_1 


in 

a.(#dO) 

• 


rrca 

l r 

c.testoondl 

• 

9 
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rot 


;a rotina tela constrói uma imagem gráfica 
;das trilhas e setores do disquete em 
;questâo 


tela 



exx 


, salva os registros 




;bc.de e hl 


ld 

hl,#0003 

;X-0 Y-3 


call 

posit 

;posiciona em X,Y 


ld 

b.#04 

;constrói as linhas 

tela_1 

push 

bc 

;que indicam as 


out 

(#98), a 

;t rilhas 


push 

af 

9 


ld 

b,#09 

• 


ld 

a." * 

• 

tela_2 

out 

(#98). a 

1 


ex 

(sp).hl 

idemora para 


ex 

(sp).hl 

;sincronizaçào 


djnz 

tela_2 

• 


pop 

af 

• 


inc 

a 

• 


pop 

bc 

• 


djnz 

tela 1 

' 


ld 

b,#04 

• 

tela_3 

push 

bc 

• 


ld 

a,*0" 

; 


ld 

b.10 

f 

tela_4 

out 

(#98), a 

• 


inc 

a 

• 


ex 

(sp),hl 

;demora para 


ex 

(sp).hl 

;sincronizaçáo 


djnz 

tela_4 

• 


pop 

bc 

• 


djnz 

tela_3 

• 


ld 

a,(ix+#02) 

;obtóm o núm. de lai 


ld 

b.a 

;b-núm. do lados 

tela_5 

push 

bc 

preenche a tela 


ld 

bc.360 

;com 360 pontos 

tela_6 

ld 

a.V 

;um para cada setor 


out 

(#98), a 

;num lado do disque 


dec 

bc 

;de 40 trilhas 


W 

a.b 

• 


or 

c 

germinou? 


V 

nz,tela_6 

;Nào, repete. 
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pop bc 

;Sím. Sa o disco for 

djnz tala 5 

;face dupla, preenche 


,mais 360 pontos 

exx 

;rocupora os registros 

rot 

;e retorna 


;a rotina posit posiciona o cursor nas coordenadas passadas 
ipor hl. h-x e l-y 


posit 



push 

af 

salva todos os 


push 

bc 

registros afetados 


push 

de 

por esta rotina 


push 

hl 



ex 

de.hl 

troca o conteúdo de hl pelo 




do do 


ld 

hl. #0000 

zera hl 


ld 

a.e 

a-linha 


or 

a 

ó igual a zero? 


jf 

z,posit2 

Sim, vai para posit2 


push 

de 

N3o. salva as coordenadas 


ld 

b.a 

b»núm. da linha 


ld 

a. (colunas) 

a-núm. de colunas 


ld 

e,a 

e=núm. de colunas 


ld 

d, #00 

de-núm. de colunas 

posit 1 

add 

hl.de 

hl-hl+núm. de colunas 


djnz 

posit 1 



pop 

de 

recupera as coordenadas 

posit2 

ld 

a, d 

a-coluna 


or 

a 

ó igual a zero? 


ir 

z,posit3 

Sim. vai para posit3 


ld 

e.a 

Nào, e-coluna 


ld 

d, #00 

de-coluna 


add 

hl.de 

hl aponta para o end. da 



;VRAM 



;correspondento a xl.yl 

posit3 

call 

setvdpwt 

prepara o VDP para escrita 


pop 

hl 

recupera os registros 


pop 

de 



pop 

bc 



pop 

af 



ret 

;e retorna 

;rotinas para o 

acesso direto à RAM de vídeo 


rdvram 





call 

setvdprd 

ajusta o VDP para leitura 
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in 

a, (#98) 

;lê um byte 

ret 


;retorna 


wtvram 





push 

af ;salva o dado a enviar 


call 

setvdpwt ;ajusta o VOP para escrita 


pop 

af Recupera o dado a enviar 


out 

(#98),a ;envia 


ret 

;retorna 

setvdprd 

H 

a. (versão) 

obtém a versão da MSX 


or 

a 

é MSX1? 


V 

2 . rdvram 1 

Sim, vai para rdvraml 


xor 

a 

Não. Inicializa o VDP 


out 

(#99). a 

do MSX2 


ld 

a,#8o 



out 

(#99),a 


rdvram 1 

ld 

a.l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde será 


and 

#3f 

lido o dado 


out 

(#99),a 



ex 

(sp).hl 

demora para 


flX 

(sp),hl 

sincronização 


ret 


retorna 


setvdpwt 

ld 

a, (versão) 

obtém a versão do MSX 


or 

a 

ó MSX1? 


1 r 

z.wtvraml 

Sim. vai para wtvraml 


xor 

a 

Não, inicializa o VDP 


out 

(#99). a 

do MSX2 


ld 

a,#8e 



out 

(#99), a 


wtvraml 

ld 

a.l 

informa ao 


out 

(#99), a 

VDP o endereço na 


ld 

a.h 

VRAM onde o 

♦ 1 

and 

#3f 

dado será 


or 

#40 

gravado 


out 

(#99).a 



ex 

(sp).hl 

demora para 


ex 

(sp).hl 

sincronização 


ret 


retorna 
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;área das variáveis usadas no código-fonte 

setatual dafw #0000 

numbytes dafw #0000 

numsator defb #00 

numset defb #00 

drive defb #00 

vez defb #00 

colunas defb 40 .número da colunas na tala 

fim equ $ 


Listagem em linhas DATA do código-objeto do programa para formatação lógica: 

10 FOR A%«tHD000 TO &HD2DB 
20 READ B$ 

30 POKE A%,VAL(“tH"+B$) 

40 NEXT A% 

50 BSAVE "PROG32.BIN", 4HD000, 4HD2DB 

100 DATA 3A. AF.FC.B?, C0, 3A, 63. F6, FE, 02, C0, 3A,F8,F7,FE, 03 
110 DATA D0, B7, C8, F3, DD. 21, EB, Dl, CD, 99, D0, 3E, 30, CD, 27, D2 
120 DATA CD, 37, D0, DD, 7E, 03, FE, FA, 30, 08. 3E. 34. CD. 27, D2, CD 
130 DATA 3F,D0,CD,F5,Dl,rB,C9,21,00,00,22,D2.D2.18.06.21 
140 DATA D0, 02.22,D2,D2,21,05,00,06,28, C5, E5, DD, 7E, 02, 47 
150 DATA C5, 06, 09, C5, E5, ED, 5B, 51, F3, 2A, D2 , D2, 06, 01, CD, 8F 
160 DATA Dl, 30, 1C,ED, 5B, 51, F3, 2A, D2, D2, 06,01, CD, BD, Dl, 30 
170 DATA 0E, 22, D2 , D2, El , E5, CD, 6A, D2 , 3E, 49. D3, 98,18, 0C, 22 
180 DATA D2 , D2 , El , E5, CD, 6A, D2 , 3E, DB, D3, 98 , El , 2C, Cl. 10, C3 
190 DATA Cl , 10, BD, El, 24 , Cl, 10, B2, C9, 21, 00, 02, 22 , D4, D2, 3E 
200 DATA 09, 32, D6, D2, 3A,F8, F7, 32, D8, D2, F6, 20, DD, 77, 00, CD 
210 DATA F5, Dl , ED, 5B, 51 , F3, 21, 00, 00 , 06, 01 , CD, 8F, Dl, FD, 2A 
220 DATA 51,F3, FD, 6E, 0B, FD, 66, 0C, 22, D4, D2, FD, 7E, 18, 32, D6 
230 DATA D2 , FD, 7E, 15, F5 , FD, 7E, IA, DD, 77, 02 , F1 , DD, 77, 03, DD 
240 DATA 36, 01, 00, C9, D5 , CD, 1D, D2, 3A, D6, D2, 4F, 06, 08, 29, 7C 
250 DATA 91,38, 02, 67, 2C, 10, F7, 24, DD, 7E, 00, 5F, DD, 7E, 02, 3D 
260 DATA 7B, 28, 06, CB, 3D, 30, 02, F6, 10, 57, DD, 7E, 03, 0F, 0F, E6 
270 DATA C0.B2, 7A,D3,D4,CD, 1D,D2,7C,D3,D2,CD, 1D.D2.DD, 7E 
280 DATA 01, D3, Dl, BD, 28, 12, 7D, D3, D3, DD, 77, 01, 3E, 11, D3, D0 
290 DATA CD, 1D, D2, 06, 10, CD, 18, D2, El , 1E, 05 , E5, D5, CD, 1D, D2 
300 DATA 3E, 80, OB, 72, 28, 08, F6, 02, CB, 62, 28, 02, F6, 08, D3, D0 
310 DATA 06,03,CD,18,D2,0E,D3,11, 68, Dl. D5. DB. D0, 0F. D0, OF 
320 DATA D2, 5B, Dl , ED, A2 , C3, 5B, Dl, Dl , El , DB, DO, E6, 9C, 28,11 
330 DATA C8, 77, 20, OB. 1D.20,C4,CB, 67,20, 04, CB, 5F,20, 00, 3E 
340 DATA 01, CD, 85, Dl, C9, F5, 3E, DO, D3, DO, CD, 1D, D2 , Fl, C9, FD 
350 DATA 21 , BA, Dl, FD, 7E, 00, 32 , 41, Dl , FD, 7E, 01 , 32 , 64, Dl , FD 
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360 DATA 7E. 02, 32 , 6D, Dl , E5, C5, D5, CD, E4 , DO , Dl . 2A, D4 , D2, 19 
370 DATA EB,C1,E1,23, 10, EF, B7, C8, 37,C9, 80. A2. 9C.FD.21.E8 
380 DATA Dl , FD, 7E, 00, 32 , 41, Dl , FD, 7E, 01, 32 , 64 , Dl , FD, 7E, 02 
390 DATA 32, 6D, Dl , E5, C5, D5. CD. E4, DO, Dl , 2A, D4 , D2 , 19, EB, Cl 
400 DATA El , 23, 10, ET, B7 , C8, 37 , C9, AO, A3, PC, 21, 00, 01, F9, F5 
410 DATA Ar,D3,D4.n.C9.F5,C5,D5,E5,3A,D8,D2, 1E,20,B3.D3 
420 DATA D4 , CD, 1D, D2, 3E, 02, D3, DO, CD, 1D, D2 , 06, C8, CD, 18, D2 
430 DATA CD, EF, Dl , El, Dl , Cl , F1 , C9, E3, E3, 10 , FC, C9 , E3, E3, E3 
440 DATA E3, DB, DO, OF, 38, FB, C9, D9, 21, 03, 00, CD, 6A, D2, 06, 04 
450 DATA C5, D3, 98, F5, 06, 09, 3E, 20, D3, 98, E3, E3, 10, FA, Fl, 3C 
460 DATA Cl , 10, ED, 06, 04 , C5, 3E, 30, 06 , OA, D3. 98, 3C, E3, E3, 10 
470 DATA F9,C1, 10, Fl, DD, 7E, 02, 47, C5, 01, 68. 01, 3E, 2E, D3, 98 
480 DATA OB, 78, BI , 20, F7 , Cl, 10, FO, D9 , C9, F5, C5, D5 , E5, EB, 21 
490 DATA 00, 00, 7B.B7, 28, 0C.D5, 47, 3A. DA, D2,5F, 16,00,19,10 
500 DATA FD, Dl, 7A, B7, 28, 04, 5F , 16, 00, 19, CD, B8, D2, El, Dl, Cl 
510 DATA F1,C9,CD,A0,D2,DB, 98, C9, F5, CD, B8 , D2 . Fl . D3, 98, C9 
520 DATA 3A, 2D, 00 , B7, 28,07 , AF, D3, 99, 3E, 8E . D3, 99, 7D, D3, 99 
530 DATA 7C, E6, 3F, D3, 99, E3, E3, C9, 3A, 2D, 00 , B7, 28,07, AF , D3 
540 DATA 99, 3E, 8E.D3, 99,7D.D3, 99, 7C.E6, 3F.F6, 40, D3, 99, E3 
550 DATA E3,C9. 00. 00, 00, 00. 00, 00, 00, 00, 28, 00 


Listagem do programa do testo: 

1000 KEYOFF:WIDTH 40:DEFINT A-Z 

1010 BLOAD *PROG25.BIN*.R:BLOAD 'PROG32.BIN* 

1020 DEFUSR-&HD000 

1 030 GOSUB 2000:REM ,M ESCOLHE O DRIVE *“ 

1040 CLSiLOCATE 0.1 :PRINT 'DRIVE : ";CHR$(&H4UA) 

1050 A-USR(A+1) 

1060 BEEP 

1070 IF INKEY$-" THEN 1070 
1080 CLS:END 

2000 CLS:S1 $-*DRIVE A':S2$-'DRIVE B*:S3S-'ESCOLHA O DRIVE' 
201 0 XI -(40 LEN(S3S))/2:X2-XULEN(S3$):Y1 -1 0:Y2-1 5 
2020 LOCATE XI ,Y1 -2:PRINT S3$ 

2030 WIN DOW XM ,Y1 ,X2, Y2,1 

2040 XI -(40-LEN(S1 $))/2:Y1 -Y1 +2:Y2-Y2-2 

2050 LOCATE XI ,Y1 :PRINT SI $ 

2060 LOCATE X1.Y2:PRINT S2$ 

2070 MENU X1.Y1 .XI ,Y2.LEN(S1$).1.A 
2080 RETURN 
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COMENTÁRIOS SOBRE O 

PROGRAMA PARA FORMATAÇÃO LÓGICA 

O programa acima implementa as rotinas para leitura e gravação de setores. Observe que, 
após o envio de qualquer comando, existe uma chamada à rotina testcond que, após um 
pequeno retardo provocado por quatro instruções EX (SP), HL, testa o bit 0 do registro de sta- 
tus (#D0) para verificar a liberação do FDC para novas instruções. Como vocò já sabe. o bit 0 
do registro de status indica se a última operação ainda está em andamento, logo, basta veri- 
ficá-lo para saber se o FDC já está liberado (bit 0 resetado). A rotina testcond 6 aquela que 
permanece em execução se, durante uma operação de leitura ou de gravação, você abrir a 
porta do drive. Na eventual necessidade de deslocar o cabeçote para uma nova trilha, existe 
uma chamada à rotina espera, que tem como objetivo criar um pequeno retardo o, assim, for- 
necer um tempo extra para que o mecanismo do drive se estabilize. Observe que emprega- 
mos exatamente a mesma rotina para a leitura e gravação de setores, com o intuito de 
economizar alguns bytes. Para tanto, as rotinas lesetor e gravsetor modificam a rotina ace- 
setor antes de chamarem a rotina Inldrlve e acesetor A rotina Inldrlve tem como principal 
tarefa calcular a trilha e o setor dentro dessa trilha, baseada no número do setor passado pe- 
lo par HL O setor passado pelo par HL deve estar no mesmo formato usado pelo BASIC: de 
0 a 719 para disquetes de 5 1/4" de face dupla e de 0 a 1439 para disquetes de 3 1 /2" de face 
dupla, por exemplo. £ importantíssimo observar que o programa promove a desabititação das 
interrupções logo no inicio. Isto é absolutamente necessário, tanto para o acesso ao vídeo co- 
mo para o acesso aos drives. Imagine o que aconteceria se. no momento da leitura do um byte 
pelo registro #D3, o Z-80 fosse desviado por uma interrupção. Haveria uma perda de sincro- 
nismo, com uma consequente perda de dados. Terrível, não? Portanto, desablllte (Dl) as In- 
terrupções sempre que acessar o FDC. Agora, um consolho: utilize as rotinas exatamente 
como apresentadas! Essas rotinas já estão sendo testadas há mais de dois anos (desde o 
lançamento do HELLO) sem qualquer problema, então, por que reinventar? Observe atenta- 
mente cada instrução das rotinas acima para tirar todas as dúvidas. 

Ao executar o programa de teste, vocô verá que um disquete de 5 1/4* de dupla face ó testa- 
do em 17 segundos, e um disquete de face dupla de 3 1/2" em 40 segundos (o drive de 3 1/2" 
é cerca de 12% mais lento). Tomando o pior caso, temos um gasto de 40 segundos no carre- 
gamento de 720 Kbytes, o que pode ser considerado um tempo excelente. A partir de agora, 
vocá pode contar com estas rotinas para o acesso acelerado ao disk drive. Mas, já que essas 
rotinas estão tão rápidas, que tal modificar o nosso copiador de setores que utiliza a MEGA- 
RAM? 


O NOVO COPIADOR DE 
SETORES QUE USA A MEGARAM 

Este programa é. basicamente, uma evolução do programa 28. aprosentado no Capítulo 5. A 
única diferença reside no fato de que, agora, a leitura e a gravação de setores são realizadas 
por rotinas de acesso direto ao FDC, e não mais por intermédio da BIOS. Como vocô poderá 
comprovar, existe um ganho de quase 63% ( 1 ,5 minuto contra 4 minutos na cópia de disquetes 
de 5 1/4" de face dupla) no tempo de cópia de um disquete inteiro. Vamos então ás listagens. 
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Listagem em assembly Z-80 do código*fonte do programa para cópia de setores: 

iprograma para cópia de setores usando a MEGAHAM 
.Compilar com o programa GEN80.COM usando a seguinte 
;$intaxe: 

;GEN80 PROG33.BIN-PROG33.GEN 

;onde PROG33.GEN ó o nome do arquivo-texto com esta 
;listagem 


rdslt 

equ 

#000c 

wrslt 

equ 

#0014 

enaslt 

equ 

#0024 

rslreg 

equ 

#0138 

wslreg 

equ 

#013b 

bufset 

oqu 

#t351 

valtyp 

equ 

#1663 

argusr 

equ 

#1718 

exptbl 

equ 

#fccl 


defb 

#fe 

;simula em CP/M 

delw 

inicio 

;o cabecalho de 

defw 

fim 

;um arquivo 

defw 

inicio 

;.BIN 



org 

#d500 


inicio 

di 


.desabilila as interrupções 


call 

rslreg 

;lè a configuraçáo atual 


id 

(con(atual).a 

;salva em confatual 


xor 

a 

;a-slot 0 


id 

hl.exptbl 

;hl aponta para a tabela 
;de expansões de slots 


td 

b,#04 

:b-número de slots 
;principais 

loopbusca 

Id 

(slotatual).a 

;Salva o Slot atual 


Id 

(subsatual).a 

;nestes endereços 


bit 

7,(hl) 

;o slot atual está 
;expandido? 


Jr 

nz.slotsecund 

;Sim, faz a procura 
;nos slots secundários 



PROGRAMANDO O FDC 367 



call 

tostam oga 

;Não. tosta a presença da 
;MEGARAM no slot principal 
;alual 

loopbus_1 

V 

c, fimbusca 

;Se achou, vai para fimbusca 


inc 

hl 

;Se não, repete a busca no 


W 

a.(slotatual) 

;slot seguinte 


inc 

a 

• 


djnz 

loopbusca 

f 

naoachou 


ld 

hl,#ffff 

prepara a sinalização 
;do que não achou a 
;MEGARAM 


ir 

fimbus_1 

;e volta ao BASIC 

fimbusca 


ld 

a.(subsatual) 

;obtóm o slot/subslot 
;onde encontrou a 
;MEGARAM 


ld 

U 

prepara a volta ao 


ld 

h,#00 

;BASIC 

fimbus_1 

ld 

a. #02 

;indica parâmetro 


ld 

(valtyp).a 

;inteiro 


ld 

(argusr).hl 

;e passa a indicação 
para o BASIC 


ld 

a.(confatual) 

;a«config. atual 


call 

ei 

ret 

wslrog 

.restabelece a 
;con(ig. atual 
ihabilita as interrupçôos 
;rotorna ao BASIC 


;a rotina slotsocun promove uma busca da MEGARAM nos 
;quatro possíveis slots secundários de um slot 

principal 

slotsecund 

push 

bc 

;salva os registros 


push 

hl 

pfetados 


ld 

e,#00 

;e-1o. slot secundário 


ld 

b,#04 

;b«4 slots secundários 

sk>tsec_1 

ld 

a.e 

;a-núm do slot secund 
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ria 


;coloca o número nos 

ria 


;bits 2 e 3 

and 

%00001100 

.obtém somente os bits 
;2o3 

ld 

e.a 

:satva o resultado em o 

ld 

a.(slotatual) 

;obtém o slot principal 

and 

7.0000001 1 

;cer1ifica-se de estar 
;entre 0 e 3 

or 

0 

;a-ID do sk>t e subslot 

set 

7.a 

;indica que ID contém 
;identrficaçâo de subslot 

ld 

(subsatual).a 

:salva neste endereço 

call 

testamega 

;testa a presença da 
;MEGARAM 

j' 

c, fimslotsec 

;Achou, vai para fimslotsec 

inc 

e 

;Se nào. repete a busca 

djnz 

slotsec_1 

;no subslot seguinte 

fimslotsec 



pop 

hl 

;recupera os registros 

pop 

bc 

;salvos 

jp 

nc.k>opbus_1 

.Se não achou, continua 
;a busca noutro Slot 

\* 

limbusca 

;Se achou, votta para 
;o BASIC 


;a rotina testamega testa a presença da MEGARAM 
,num determinado slot/subslot 


testamega 



push 

bc 

.salva os registros 

push 

do 

;afetados 

push 

hl 

• 

call 

leslot 

;le o conteúdo da 



;pos. «4000 do slot ou do 



;subslot em questão 

push 

af 

;salva o valor lido 

out 

(#Ôe),a 

.prepara a MEGARAM para 



phaveamento 

ld 

e.#00 

.chaveia a MEGARAM para 

call 

escslot 

;a página 0 

in 

a,(#8e) 

prepara a MEGARAM para 



;escrita 

ld 

e,#eb 

;e-valor a escrever 

call 

escslot 

;escreve 

out 

(*8o).a 

prepara a MEGARAM para 
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;chaveamento 


ld 

e.#00 

;chaveia a MEGARAM para 


call 

escslot 

;a página 0 


call 

leslot 

;lê o valor 


cp 

#eb 

;compara com o valor 
;escrito 


V 

z, fimteste 

;Se achou, vai para fimteste 


pop 

af 

;Se não, recupera o valor 


ld 

e,a 

;onginal e o repõe 


call 

escslot 



xor 

a 

;Zera a flag de carry para 
;indicar que náo encontrou 
;a MEGARAM 


V 

fimtestel 


fimteste 

pop 

af 

;Repõe o valor 


ld 

e.a 

;original 


call 

escslot 



scf 


;indica que encontrou a 
;MEGARAM 

fimteste 1 

pop 

hl 

;recuperaos 


pop 

de 

;registros salvos 


pop 

bc 



ret 


;e retorna 


;a rotina iaslot lô o conteúdo do ondereço 
,#4000 de qualquer slot/subslot 

leslot 

;hl aponta para o 
;endereço a ler 
;obtém o 10 do slot 
;ou subslot 
;lè o valor 

;retorna com o valor 
;lido no registro a 


ld hl, #4000 

ld a,($ubsatual) 

call rdslt 

ret 


;a rotina escslot escreve o conteúdo do registro 
;e no endereço #4000 de qualquer slot/subslot 

escslot 

ld hl,#4000 ;hl aponta para o 
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kJ 

a.(subsatual) 

call 

wrslt 

ret 



;endereço a ser 
;modificado 
pbtém o ID do slot 
;ou subslot 
.escreve o valor 
.contido no registro 
;e 

;retorna 


.transfere um bloco de 16 Kbytes da RAM para a MEGARAM 
ram_mega 


di 


;de$abilita as interrupções 

call 

inimega 

;inicializa a MEGARAM 

in 

a,(#8e) 

prepara a MEGARAM 
para escrita 

ld 

hl, #9400 

;hUend. inicial 

id 

de.#4000 

;de»end. final 

ld 

bc.#4000 

;bc-16 Kbytes 

Idir 


;transforo 

out 

(#âe),a 

• 

ld 

a.(confatual) 

;a-config. original 

call 

wslreg 

;habilita a conlig. 
.original dos slots 

ei 


;habilita as interrupções 

ret 


;retorna ao BASIC 


;transfera um bloco de 1 6 Kbytes da MEGARAM para a RAM 


mega_ram 

di 


;desabilita as interrupções 


call 

inimega 

;inicializa a MEGARAM 


ld 

hl.#4000 

;hl-end. inicial 


ld 

do. #9400 

;de-end. final 


ld 

bc,#4000 

;bc- 16 Kbytes 


Idir 


transfere 


out 

(#8e),a 

• 


ld 

a.(conf atual) 

;a«config. original 


call 

wslreg 

;habilita a config. 
priginal dos slots 


ei 


;habilita as intorrupções 


ret 


;retorna ao BASIC 
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,a rotina inmoga inicializa a MEGARAM. 

;0 parâmetro da funçào USR do BASIC 

;deve indicar a página da MEGARAM a ser chaveada 

inimega 


call 

rslreg 

;lê a configuração 
;atual dos slots 

W 

(confatual).a 

;safva em confatual 

ld 

a.(subsatual) 

, obtêm o ID da MEGARAM 

ld 

hl, #4000 

;habilita a página 

call 

enaslt 

;1 do slot da MEGARAM 

out 

(#8e).a 

;propara a MEGARAM 
;para chaveamento 

ld 

a.(argusr) 

iObtém a página da 
;MEGARAM 

ld 

(#4000),a 

;chavoia 

inc 

a 

;chaveia a próxima 
página no endereço 

ld 

(#6000), a 

;#6000 

ret 


;retorna 


;a rotina leboot lô os setores 0 do disquete-fonte e de 
;destino para comparar os tipos e obter o número de 
;setores a copiar. O parâmetro da função USR passa 
;o número do drive a analisar 


leboot 


ld 

a.(vez) 

;ó a primeira vez? 

or 

a 

9 

V 

nz,leboot_1 

;Nâo, vai para lobooM 

ld 

hl.512 

;inicializa o número de 

ld 

(numbytes).hl 

;bytes por setor 

ld 

a, #09 

;envia o número de setores 

ld 

(numsetor).a 

;por trilha 

lebooM 



ld 

a.(argusr) 

;salva o númoro 

ld 

(drive), a 

;do drrve 

call 

rodadrive 

;coloca na trilha 0 

ld 

de.(bufset) 

;obtóm o endereço 
;do buffer 

ld 

hl, #0000 

;hl-núm. do setor 
;a ler 

k) 

b,#01 

;b-número de setores 
;a ler 

call 

lesetor 

;lê o setor 

call 

paradrive 

;para o drive 
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ld 

a, (vez) 

or 

a 

ret 

nz 


ld 

ix.(bufset) 

ld 

l,(ix+#0b) 

ld 

h,(iX4#0c) 

ld 

(numbytes).hl 

ld 

a,(ix+#18) 

ld 

(numsetor).a 

ld 

a,(iX4#15) 

push 

af 

ld 

a,(ix+#1a) 

push 

af 

ld 

ix.pardrivea 

ld 

iy.pardrrveb 

pop 

af 

ld 

(»x+#02),a 

ld 

(iy+#02),a 

pop 

af 

ld 

(ix*#03),a 

ld 

(iy4-#03),a 

ld 

(ix+#01),#00 

ld 

(iy+#01),#00 

ld 

a, #01 

ld 

(vez), a 


ret 


;ó a primeira vez? 

f 

;Não, volta 
;Sim, inicializa os 
parâmetros 

;obtóm o número de bytes 
;por setor 
• 
t 

;obtém o número de setores 
;por trilha 

;obtôm o tipo de formatação 
;salva na pilha 
;obtém o número de lados 
;salva na pilha 
;ix parâmetros drive a 
;iy paràmotros drive b 
;recupera o núm. de lados 
;ajusta as tabelas 
» 

;recupera o tipo 
:ajusta as tabelas 
» 

;ajusta a trilha 
;inicial de ambos 
;os drives 

;modifica a fiag vez 

t 

;volta ao BASIC 


;a rotina leconj lê um conjunto de até 32 setores (16 Kb) 
;do disquete-fonte 


leconj 


ld de, #9400 

kJ hl.(argusr) 

ld a.(numset) 

ld b.a 

call lesetor 

ret 


;de-end. inicial 
pbtém o número 
;do setor inicial 
;obtóm o número 
;de setores a ler 
;coloca em b 
;lè o(s) setor(es) 
;e retorna 
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;a rotina grconj grava um conjunto de até 32 sotores 
;(16 Kb) no disquete de destino 


grconj 

ld 

de, «9400 

;hl-end. inicial 


td 

hl.(argusr) 

;obtém o número 
;do setor inicial 


ld 

a.(numset) 

;obtóm o número 
;de setores a lor 


ld 

b.a 

.coloca em b 


call 

gravsetor 

;grava o(s) setor(es) 


ret 


;e retorna 


;rotina para posicionar o cabeçote do drivo na trilha 
;correta, preparando-o para a leitura ou escrita do 
;setor especificado 


inidrivG 


divide 1 


divide 2 


push 

de 

;satva o ptr. p/ butfer 

call 

testcond 

.espora liberação 

ld 

a.(numsetor) 

;a-núm. de setores por trilha 

ld 

c,a 

;c-núm. de setores por trilha 

ld 

b,«08 

;propara a divisão em 8 bits 

add 

hl, hl 

;do número do setor desejado 

ld 

a.h 

;pelo número de setores 

sub 

c 

;por trilha 

\r 

c.divide_2 


ld 

h.a 


inc 

1 


djnz 

divido_1 


Inc 

h 

;h-núm. do setor (1 a 9) 

ld 

a,(ix+«00) 

parâmetro para ligar 

ld 

e.a 

;$alva em e 

ld 

a,(ix+#02) 

;obtém o núm. de lados 

dec 

a 

;face simples? 

ld 

a,e 

t 

V 

2 .inidrive _1 

;Sim, vai para inidrive 1 

srl 

1 

;divide a trilha por 2 
;0 número da trilha 
;ó ímpar (lado 1 )? 

jr 

nc.inidrivel 

;Nâo, vai para inidrive_1 

or 

«10 

;Sim, informa. 

ld 

d, a 

;d«seleção 


inidrive 1 
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ld 

rrca 

rrca 

a,(ix+#03) 

and 

#c0 

or 

d 

ld 

a, d 

out 

(#d4),a 

call 

testcond 

ld 

a.h 

out 

(#d2).a 

call 

testcond 

ld 

a.(ix+#01) 

out 

(#d1),a 

cp 

1 

Y 

z.acesetor 

ld 

a,l 

out 

(#d3),a 

ld 

(ix+#01),a 

ld 

a.#11 

out 

(#dO).a 

call 

testcond 

ld 

b.#10 

call 

espera 


:a-tipo d© form. 


;nova seleção 
;salva em d 
;liga o motor do drive 
;espera liberação 
;envia o setor 

t 

;espera liberação 
;a.trilha anterior 
;envia o número 
;já está na nova trilha? 
;Sim, vai para inidrive_2 
;Não. posiciona o 
;cabeçoto na trilha 
;atualiza a variável 


;ospera liberação 


;a rotina acesetor serve aos propósitos de leitura e/ou 
;gravaçâo de um setor. Na entrada, de-buffor em RAM e 
;hUnúmero do setor. Os labeis drive, numsetor e densid 
;devem estar corretamente preenchidos 


acesetor 



pop 

hl 

;recupera o ptr. p/ butfer 


ld 

e.5 

;e«núm. de tentativas 

acesetorl 

push 

hl 

tsalva o end. do butfer 


push 

de 

:salva núm. de tentativas 


call 

testcond 

;espera liberação 

acesetor? 

ld 

a. #80 

;a-comando de leitura 


bit 

6, d 

;espera ativada? 


k 

z,acesetor3 

;Não. vai p/ acesetor3 


or 

#02 

;habilita espera 


bit 

4.d 

;ó lado 1 ? 


k 

z.acesetor3 

.Não, vai para acesetor3 


or 

#08 

;Sim, faz a comparação 
;pelo lado 1 

acesotor3 

out 

(#d0),a 

;onvia o comando 


ld 

b,#03 

;laço do espera para 


call 

espera 

;sincronização 
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ld 

c,#d3 

;a=porla do dados do FDC 


ld 

de, fimacesso 

;do«ond. final 


pjsh 

de 

.salva end. final na pilha 

acesetor4 

in 

a.(«dO) 

;lè status do FDC 


rrca 

ret 

nc 

;acabou a leitura? 

;Sim. vai para fimacesso 

acesetor5 

rrca 

ÍP 

Inl 

nc,acesetor4 

;Não, espera chegar um byto 
;lè/escreve (outi) um byte 


jp 

acesetor4 

;prepara nova leitura/escrita 

fimacesso 


pop 

do 

-.recupera núm. de tentativas 


pop 

hl 

;recupera end. do buffer 


in 

a,(#dO) 

;obtóm o status do FDC 

acesetorô 

and 

#9c 

;corrou tudo bem? 


k 

z.prepfim 

;Sim, volta 


bit 

6, a 

;No caso de escrita, o disco 


jr 

nz.comorro 

;estava protegido? 


doe 

e 

;faz mais uma tentativa 


i r 

bit 

nz.acasetorl 
4, a 

;houve erro do busca? 


jf 

nz.comorro 

;Sim, vai para comerro 


bit 

3.a 

;houve erro de CRC? 


jr 

nz.comarro 

;Sim, vai para comerro 

comerro 

ld 

a.#01 

;Nào, então houve perda de 
;dados 


:a rotina prepfim prepara a saída de um processo 
;de leitura ou gravação de setores 

prepfim 

push 

af 

;salva a 

ld 

a.#dO 

;força o término 

out 

(*dO).a 

;das operações 
;anteriores 

call 

testeond 

'.espera liberação 

pop 

ret 

af 

'.recupera a 
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;rotina para leitura de um setor. hUnúm. do setor, de^end. 
;em RAM do bufíer para o setor 


losotor 


lesetor 0 


lesetor 1 


parleitura 


ld 

ix.parleitura 

W 

a,(ix+#00) 

ld 

(acesetor2+1).a 

ld 

a,(ix*#01) 

ld 

(acesetor5+1).a 

ld 

a,(ix+0O2) 

ld 

(acosotor6+1).a 

ld 

ix.pardnvea 

ld 

a, (drive) 

dec 

a 

Jr 

z.lesetoM 

ld 

ix.pardriveb 

push 

hl 

push 

bc 

push 

di 

de 

call 

ei 

inidrive 

pop 

de 

ld 

hl.(numbytes) 

add 

hl.de 

ex 

de, hl 

pop 

bc 

pop 

hl 

inc 

hl 

djnz 

lesetoM 

or 

a 

ret 

z 

ld 

hl.#ffff 

ld 

ret 

(argusr).hl 


;ix aponta para os parâmetros 
;de leitura 

;a=comando de leitura 
;modi(ica a rotina acusetor 
;a-instruç5o ini (leitura) 
;modilica a rotina acesetor 
;a=parâmetro de verificação 
:da leitura 

.modifica a rotina acesetor 
;ix *> tabela drive a 

.drive a? 

;Sim, pula para lesetoM 
;Nâo. atualiza ix 

;salva hl 
;salva bc 
;salva de 

.•faz a leitura de um setor 

;recupera o buffer 

;$oma com o número de bytes 

:por setor 

;recupera os outros registros 

;aponta para o próximo setor 
;lè os outros setores 
;houve erro? 

;Não, volta. 

;Sim. sinaliza ao BASIC 
;e retorna 


dofb #80.#a2.#9c 


.rotina para a gravação de um setor. hUnúm. do setor, 
;de-end. em RAM do buffer do setor 


gravsetor 



gravset_0 


gravseM 


parescrita 


pardrivea 
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kf 

ix. parescrita 

;ix aponta para os parâmetros 
;de escrita 

ld 

a,(ix+#00) 

;a-comando do escrita 

kJ 

(acesetor2+1 ),a 

;modif»ca a rotina acesetor 

ld 

a,(ix+#01) 

;a=instrução ouli (escrita) 

ld 

(acesotor5+1),a 

.modifica a rotina acesetor 

ld 

a.(ix+#02) 

;a=parâmetro de verificação 

ld 

(acesetor6*1) 

a;da escrita 

ld 

ix .pardrivea 

;ix •> tabela drive a 

ld 

a.(drive) 


dec 

a 

.drive a? 

K 

z.gravsetl 

.Sim, pula para gravseM 

ld 

ix.pardriveb 

Não. atualiza ix 

push 

hl 

salva os registros 

pjsh 

bc 


push 

di 

de 


call 

ei 

inidrive 

grava um setor 

pop 

de 

recupora o buffer 

ld 

hl,(numbytes) 

soma com o númoro do bytes 

add 

hl.de 

por setor 

ex 

do. hl 


pop 

bc 

recupera os outros registros 

pop 

hl 


inc 

hl 

aponta para o setor seguinto 

djnz 

gravseM 

grava os outros setores 

or 

a 

houve erro? 

ret 

z 

Nâo, volta 

ld 

hl.#ffff 

Sim. sinaliza ao BASIC 

ld 

(argusr).hl 


rot 


e retorna 

dufb 

#a0,#a3,#fc 



defb 

«21 

parâmetro p/ ligar 

dofb 

#00 

.Irilha atual 

defb 

#01 

;densidade 

defb 

#f9 

,1ipo de formatação 
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pardrivob 


defb 

#22 

;parâmelro ligar 

defb 

#00 

;trilha atual 

defb 

#01 

;dens»dade 

defb 

#19 

;tipo de formatação 


.rotina que pára o motor 

do drive sem mexer no cabeçote 

paradrive 

push 

af 

•.salva o registro afotado 


xor 

a 

;zera o registro a 


out 

(#d4).a 

.envia o comando de parada 


pop 

af 

;recupera o registro 


rat 


•.retorna 


;rotina para deslocar o cabeçote até a trilha zero o 

.parar o drive. Esta rotina deve ser usada sempre que 
;se desejar parar o drive 

rodadrrve 

di 


:desabilita as interrupções 

push 

af 

:salva os registros afetados 

push 

bc 


push 

de 


push 

hl 


ld 

a.(drive) 

;obtôm o número do drive 

kJ 

e,#20 

;comando para ligar o motor 

or 

a 

;a-comando para acionar 

out 

(#d4).a 


call 

testcond 

;espera liberação 

ld 

a, #02 

;a-comando de inicialização 

out 

(#d0),a 

;envia o comando 

call 

testcond 

;espera liberação 

ld 

b.200 

;dã um tempo para o ajuste 

call 

espera 

;das partes mecânicas 

call 

paradrive 

;para o motor 

pop 

hl 

;recupera os registros 

pop 

de 


pop 

bc 


pop 

af 


ei 


;habilita as interrupções 

ret 


;retorna 
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;rotina para estabilização das partes mecânicas do drive 
espera 


ex 

(sp).hl 

ex 

(sp).hl 

djnz 

espera 

ret 



;rotina para testar 

a liberação do FDC 

testcond 


ex 

(sp).hl 


ex 

(sp).hl 


ex 

(sp).hl 


ox 

(sp).hl 

testcond_1 


in 

rrca 

a,(#d0) 


ir 

rot 

c,tostcond_1 


;área das variáveis usadas no código-fonte 

numbytes 

defw 

#0000 

numsetor 

detb 

#00 

numset 

defb 

#00 

drive 

defb 

#00 

conf atual 

defb 

#00 

subsatual 

defb 

#00 

slot atual 

defb 

#00 

vez 

defb 

#00 

fim 

equ 

s 


Listagem om linhas DATA do código-objeto do programa para cópia de setores: 

10 FOR A%=SHD500 TO &HD7FE 
20 READ B$ 

30 POKK À% , VAL 
40 NEXT A« 



380 Guta do Programador MSX 
CAP.7 


50 BSAVE "PROG33 . BIN" , fcHD500 , &HD7FE 

100 DATA F3,CD,38,01,32,FA,D7,AF.21,C1,FC.06.04.32.FC.D7 
110 DATA 32, FB, D7.CB. 7E.20. 27, CD. 64. D5. 38, 0C. 23. 3A, FC, D7 
120 DATA 3C, 10, EA, 21 , FF, FF, 18,06, 3A, FB, D7, 6F, 26, 00, 3E, 02 
130 DATA 32, 63, F6, 22, F8, F7, 3A,FA,D7,CD, 3B, 01 . FB, C9, C5, E5 
140 DATA 1E, 00, 06,04, 7B, 17, 17, E6, OC, 5F, 3A, FC, D7 , £6, 03, B3 
150 DATA CB, FF, 32 , FB, D7 , CD, 64 , D5, 38 , 03, 1C, 10, E7, El , Cl , D2 
160 DATA 1C, D5, 18 , C4, C5 , D5, £5 , CD, 99. D5, F5 ,D3, 8E, 1E, 00. CD 
170 DATA A3.D5,DB,8E, 1E, EB. CD, A3. D5. D3, 8E, 1E, 00, CD, A3, D5 
180 DATA CD, 99, D5, FE, EB, 28, 08 , Fl , 5F, CD, A3 , D5, AF, 18 , 06, F1 
190 DATA 5F, CD, A3 , D5, 37 , El, Dl , Cl , C9 . 21, 00, 40, 3A, FB, D7, CD 
200 DATA OC, 00, C9, 21, 00 , 40, 3A, FB, D7 , CD, 14,00,C9,F3, CD, El 
210 DATA D5,DB, 8E, 21, 00, 94. 11, 00. 40. 01, 00, 40. ED, BO, D3, 8E 
220 DATA 3A.FA, D7,CD. 3B, 01, FB,C9,F3,CD, El, D5, 21, 00, 40, 11 
230 DATA 00, 94, 01,00, 40, ED, BO, D3, 8E, 3A, FA, D7, CD, 3B, 01, FB 
240 DATA C9, CD, 38, 01, 32 . FA, D7 , 3 A, FB, D7, 21,00, 40, CD, 24 , 00 
250 DATA D3.8E, 3A,F8.F7,32, 00, 40, 3C. 32, 00, 60,C9,3A,FD,D7 
260 DATA B7, 20, OB, 21, 00, 02, 22, F5, D7, 3E, 09, 32, F7, D7, 3A, F8 
270 DATA F7 , 32, F9, D7, CD, Cl , D7 , ED, 5B, 51 , F3 , 21 , 00, 00, 06, 01 
280 DATA CD,2D,D7,CD,BB,D7, 3A, FD, D7 , B7, CO, DD. 2A.51.F3, DD 
290 DATA 6E, OB, DD, 66, OC, 22, F5, D7, DD, 7E, 18, 32, F7, D7, DD, 7E 
300 DATA 15, F5, DD, 7E, IA, F5, DD, 21, B3 , D7, FD, 21 , B7 , D7, Fl , DD 
310 DATA 77, 02, FD. 77. 02, Fl. DD, 77, 03. FD, 77. 03, DD, 36, 01, 00 
320 DATA FD, 36, 01. 00, 3E, 01, 32, FD, D7,C9,11,00,94, 2A, F8, F7 
330 DATA 3A, F8, D7 , 47, CD, 2D, D7,C9, 11,00, 94,2A,F8, F7 , 3A, F8 
340 DATA D7, 47, CD, 70, D7 , C9. D5, CD, EB, D7, 3A. F7, D7, 4F, 06, 08 
350 DATA 29, 7C, 91, 38, 02, 67, 2C. 10.F7.24. DD. 7E. 00, 5F, DD, 7E 
360 DATA 02, 3D. 7B. 28, 06.CB, 3D. 30, 02,F6, 10, 57, DD, 7E, 03, OF 
370 DATA 0F.E6,C0.B2.7A,D3,D4,CD,EB,D7,7C.D3,D2,CD,EB,D7 
380 DATA DD, 7E, 01 , D3, Dl , BD, 28 , 12, 7D, D3, D3 , DD, 77 , 01 , 3E. 11 
390 DATA D3, DO, CD, EB, D7, 06, 10, CD, E6, D7, El , 1E, 05, E5, D5, CD 
400 DATA EB, D7, 3E, 80, CB, 72, 28, 08, F6, 02, C8, 62, 28, 02, F6, 08 
410 DATA D3, DO, 06, 03, CD, E6, D7, OE, D3, 11, OA, D7, D5, DB, DO, OF 
420 DATA DO, OF, D2 , FD, D6 , ED, A2 , C3, FD, D 6, Dl , El , DB, DO, E6, 9C 
430 DATA 28,11, CB, 77, 20, OB, 1D, 20, C4 , CB, 67,20,04, CB, 5F, 20 
440 DATA 00, 3E, 01 , F5, 3E, DO, D3, DO, CD, EB, D7 , Fl , C9, DD, 21, 6D 
450 DATA D7, DD, 7E, 00, 32 . E3, D6, DD, 7E, 01, 32, 06, D7 , DD, 7E, 02 
460 DATA 32 , OF, D7 , DD, 21 , B3, D7 , 3 A, F9, D7, 3D, 28, 04 , DD, 21, B7 
470 DATA D7, E5, C5, D5, F3 , CD, 86, D6, FB, Dl, 2A, F5. D7 , 19, EB, Cl 
480 DATA El,23,10,ED,B7,C8,21,FF,rF.22.F8.F7.C9.80.A2. 9C 
490 DATA DD, 21, BO , D7, DD, 7E. 00, 32, E3, D6, DD, 7E,01,32,06,D7 
500 DATA DD, 7E, 02, 32, OF, D7, DD, 21, B3, D7, 3A, F9, D7, 3D, 28, 04 
510 DATA DD, 21, B7 , D7, E5, C5, D5, F3, CD, 86, D6 , FB, Dl , 2 A, F5, D7 
520 DATA 19, EB, Cl , El , 23, 10, ED, B7, C8 , 21, FF, FF, 22, F8, F7, C9 
530 DATA AO, A3, FC, 21, 00, 01, F9, 22,00,01,F9.F5, AF, D3, D4 , Fl 
540 DATA C9,F3, F5,C5, D5,E5, 3A,F9, D7, 1E, 20. B7, D3, D4, CD, EB 
550 DATA D7, 3E, 02, D3, DO, CD, EB, D7, 06, C8, CD, E6, D7, CD, BB, D7 
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560 DATA El,Dl.Cl,Fl,FB,C9,E3,E3.10.rC.C9,E3,E3,E3 r E3.DB 
570 DATA D0,0F,38,FB, 09,00.00,00,00, 00, 00, 00, 00, 00. 00 


Listagem do programa de teste: 


1000 KEYOFF:WIDTH40:CLEAR 200.&H93FF:DEFINTA-Z 
1010CLS:BLOAD H PROG25.BIN’,R:BLOAD"PROG33.BIN" 
1020DEFUSRO-&HD500:DEFUSR1-&HD5AD:DEFUSR2-&HD5C8 
1 030 DEFUSR3-&HD5FD:DEFUSR4-&HD66A DEFUSR5.&HD678 
1040DEFUSR6-&HD7C1 :DEFUSR7»iHD7BB:DR=&HD7F9.NT-&HD7F8:VZ- 
&HD7FD 

1 050 GOSUB 1780 

1060 IFA-1 THENENDELSECLS 

1 070 EDUPEEK(&HF351 )+256 # PEEK(&HF352) 

1080DEFFNN(ED!)-(PEEK(ED!+19)+256*PEEK(ED!+20)) 

1 090 A-USR0(0):IFA-1 THENGOTQ21 1 0 
1100 GOSUB1130 

1 1 10 IFDD-DFTHENGOSUB1200ELSEGOSUB1340 
11 20 GOTO 1050 

1 130 Sl$-"DRIVE-FONTE“:S2$-"DRIVE -CÓPIA" 

1 140 S3$-"ESCOLHA OS DRIVES":X1 -(40-LEN(S3$))/2-1 .X2-X1+1 + 
LEN(S3$):Y1-9:Y2-11 

1 1 50 WINDOWX1 ,Y1 .X2.Y2.1 iLOCATEXl +1 ,Y1 + 1 ;PRINTS3S:LOCATE1 .0 
:PRINTS1 $:LOCATE21 ,0:PRINTS2$:C-0;D-0 
1160 MENU1, 0,21,0.11, 9, A 

1 170lFA-0THENGOSUB1480:DF-A+1 :C-1:IFD«lTHENRETURNELSEGOTO 
1160 

1180IFA-1THENGOSUB1480:DD-A+1:D-1:IFC-1THENRETURN 

1190 GOT0 1 160 

1 200 DA»DF:GOSUB1960:CLS:POKEVZ,0 
1210 A-USR3(DF):N1-FNN(ED!) 

1 220 XI -0:X2-24;Y1 -2:Y2-8 
1 230 WINDOWX1 ,Y1 .X2.Y2. 1 

1240 LOCATEXW1.YH2:PRINT’DISCO-FONTE .".CHR$(&H40+DF): 
LOCATEX1 -*-1 ,Y2-2:PRINT"NÚM. DE SETORES;“;N1 
1 250 DA-DD:GOSUBl 980 
1260 A-USR3(DD):N2-FNN(ED!) 

1 270 XI -1 2:X2-36:Y1 -1 0:Y2-1 6 
1 280 WINDOWX 1 ,Y1 ,X2,Y2,1 

1 290 LOCATEXU1 ,Y1 4.2:PRINT*DISCO DA CÓPIA : -;CHR$(&H40+DD) 

:LOCATEXUl ,Y2-2:PRINT"NÚM. DE SETORES:’;N2 

1 300 GOSUB2080 

1310 IFNloN2THENG0T01840 

1320 GOSUB1590 

1330 RETURN 

1340 POKEVZ.O:S1$-’COLOQUE OS DISQUETES NOS DRIVES" 
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1 350 GOSUB1 900:CLS 

1360A-USR3(DF):N1-FNN(ED!):A-USR3(DD):N2«FNN(ED!) 

1 370 XI -0:X2-24;Y1 «2:Y2=8 
1 380 WINDOWX1 ,Y1 ,X2, Y2,1 

1390 LOCATEXU 1,YU2:PRINT"DRI VE : “;CHR$(&H40+DF) 

1 400 LOCATEX 1 + 1 . Y2-2:PRINT“NÚM. DE SETORES:‘;N 1 
1410 XI -XU1 2:X2-X2+ 1 2:Y1 -YU8:Y2-Y2+8 
1420 WINDOWX1 ,Y1,X2,Y2,1 

1 430 LOCATEXU 1 ,Y1 +2:PRINT“DRIVE : ’;CHR$(& H40* DD): 

LOCATEX 1 + 1 .Y2-2:PRINr NÚM. DE SETORES:“;N2 

1440GOSUB2080 

1 450 IFN 1 oN2THENGOTOl 840 

1460 GOSUB1590 

1470 RETURN 

1480 IFA-0THENX1-1ELSEX1-21 
1490 X2-X1 +8:Y1 -1 :Y2-4 

1500 LOCATEX 1 * 1 .YU 1 :PRINr-:LOCATEXl. 1 ,YH 2 :PRINr-: 

LOCATE X2+ 1 . Y U 1 :PRINT" •:LOCATEX2+1,YU2:PRINT- " 

1510 REVERSE.,0,1 

1520 WINDOWX1 ,Y1 .X2.Y2.1 

1530 LOCATEXU 1.Y1+1 ;PRINT'DRIVE A' 

1 540 LOCATEXU 1 .Y1 +2;PRINT“DRIVE B‘ 

1550 MENUXU 1 .YU1.XU1.Y1 +2,7,1 , A 
1560 REVERSE.,0.1 

1 570 LOCATEX1 -1 , YUUA:PRINT->’:LOCATEX2+ 1 ,YUU A:PRINTV 
1580 RETURN 

159001 -N 1 -(NI MOD51 2):Q2-N1 -((NI -Q1 )M0D32):03=N1 
1 600 FORX-0TOO1 -1 STEP512 

1610DA-DF:PG«0:NS«32:POKEDR,DA:POKENT.NS:IFQUOTHENQL-Q2-1EL 

SEQL-X+511 

1620 IFDF-DDTHENGOSUB1960 

1630 FORY-XTOOLSTEP32:SI-Y:GOSUB2000:A-USR4(Y):IFA— 1THEN 
2090ELSEA-USR1 (PG):PG-PG+2:NEXTY 

1640IFO1-0THENNS-NlQ2:POKENT.NS:SI-Q2:GOSUB2000:A-USR4 
(Q2):IFA--1 THEN2090ELSEA-USR1 (PG) 

1650 DA-DD:PG-0:NS-32:POKEDR.DA:POKENT,NS.IFDF-DDTHENGOSUB 
1980 

1660FORY-XTOOLSTEP32:SI-Y:GOSUB2020:A-USR2(PG):A-USR5(Y):IFA- 

1THEN2100ELSEPG-PG+2:NEXTY 

1670IFQU0THENNS-Nl-O2:POKENT,NS:SI-Q2:GOSUB2020:A-USR2 
(PG):A«USR5(Q2):IFA— 1THEN2100ELSEGOTO1770 
1680 NEXTX 

1690DA-DF:PG-0:NS-32:POKEDR,DA:POKENT.NS:IFDF=DDTHENGOSUB1960 
1700FORY-Q1TOQ2-1STEP32:SI-Y:GOSUB2000:A-USR4(Y);IFA-1 
THEN2090ELSEA-USR1 (PG):PG-PG+2:NEXTY 
1 71 0 IF(Q2-Q3ANDDF-DD)THENGOSUB 1 980 

1720IFQ2-Q3THENPG»0:DA-DD:POKEDR.DA:FORY-Q1 TOQ2-1STEP32 
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:SI-Y:GOSUB2020;A-USR2(PG):A-USR5(Y):IFA-1THEN2100ELSE 
PG-PG+2:NEXTY:G0T01 770 

1730NS-Q3-Q2:POKENT.NS:SI-Q2:GOSUB2000:A-USR4(Q2):IFA-1THEN2090EL 

SEA-USRl(PG) 

1 740 DA-DD:PG-0:NS-32;POKEDR.DA:POKENT.NS:IFDF-DDTHENGOSUB 
1980 

1750FORY-Q1TOQ2-1STEP32:SI-Y:GOSUB2020:A-USR2(PG):A-USR5 
(Y):IFA--1 THEN21 OOELSEPG-PG+2:NEXTY 

1760NS-Q3-02:P0KENT.NS:SUQ2.G0SUB2020.AoUSR2(PG):A-USR5 

( 02 ) 

1 770 POKEDR.DF:A-USR6(0):POKEDR,DD: A-USR6(0):RETURN 
1780 CLS;S1$-"CÔPIA DE DISQUETES? SIM“;S2$-“NÂO’ 

1 790X1 -(40-LEN(S1 $))/2:Y1 -1 1 lOCATEXI ,Y1 :PRINTSl S 

1800 XI «XULEN(S1 $)-3:LOCATEX1 ,YU1 :PRINTS2$ 

1810MENUX1.Y1.X1.YW1.3.1.A 

1820 REVERSE, .0.1 

1830 RETURN 

1840 SlS-'0 DISQUETE DE CÓPIA É DIFERENTE":S2$-"DO DISQUETE-FONTE" 

1 850CLS:BEEP:X1 -(40-LEN(S1 $))/2:X2-X W ULEN(S1 $):Y1 -1 0:Y2-13 
1 860 WINDOWX 1 ,Y1 .X2. Y2.1 

1 870LOCATEXU1 .YU1 :PRINTS1 $:LOCATE(40-LEN(S2$))/2.YU2 
:PRINTS2$ 

1880 GOSUB2080;GOSUB1 780 

1890 IFA-1THENCLS:END:ELSECLS:RETURN1070 

1900 S2$-*PRESSIONE QUALQUER TECLA" 

1910X1-(40-LEN(S1$))/2-1:X2-XUULEN(Sl$):Yl-20:Y2-23 

1 920 GOSUB2070 

1 930 WINDOWX1.Y1 .X2.Y2.1 

1940LOCATEXU1.YU1:PRINTS1S:LOCATE(40-LEN(S2$))/2.Y2-1: 

PRINTS2S 

1 950 IFINKEYS--THEN1 950ELSEGOSUB2070:RETURN 

1960 S1S--COLOQUE O DISQUETE-FONTE EM “+CHR$(4H40+DA)*" " 

1 970 A-USR7(0):GOSUB1 900:RETURN 

1980 Sl$-“COLOQUE O DISQUETE DE CÓPIA EM "♦CHR$(&H40+DA)*" " 

1 990 A-USR7(0):GOSUB1 900:RETURN 

2000 Sl$-“LENDO DO SETOR"+STR$(SI)+" AO*+STR$(SI+NS-1) 

2010 GOSUB2040:RETURN 

2020 S1$-"GRAVANDO DO SETORVSTR$(SI)+" AO"+STR$(SI+NS-1) 

2030 GOSUB2040. RETURN 

2040CLS:X1-(40LEN(S1S)V2-1:X2-XUULEN(S1$):Y1-10:Y2-12 

2050 WINDOWX1 ,Y1 .X2.Y2.0 

2060 LOCATEXU1 .YH1 :PRINTS1$:RETURN 

2070 FORA-Y1 TOY2:LOCATEO.A:PRINTSTRING$(39." ");:NEXTA: 

RETURN 

2080 S1$-“PRESSKDNE QUALQUER TECLA":S2$-"PARA CONTINUAR": 
GOSUB1910:RETURN 

2090 S1$-"ERRO DE LEITURA":S2$«"NO DRIVE %CHR$(&H40+DF) 
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:A-USR6(DF):G0T01 850 

2100 Sl$-"ERRO DE ESCRITA-:S2$-'NO DRIVE %CHR$(AH40+DD) 
:A-USR6(DD):GOTOl 850 

2110 S1$-"SISTEMA SEM MEGARAM CONECTADA':S2$--IMPOSSlVEL CONTI 
NUAR*:GOSUBí 91 0:CLS:END 


COMENTÁRIOS SOBRE 
O PROGRAMA PARA CÓPIA DE SETORES 


Todo o controle do programa acima é (eito pela listagem em BASIC apresentada como pro- 
grama de teste. Mais uma vez, as minhas desculpas pela apresentação da listagem em BA- 
SIC de maneira tão confusa, mas não havia outro remédio, devido és limitações de memória 
jã mencionadas no Capítulo 5. O programa acima está longe de ser o mais rápido dos copia- 
dores, por apresentar um gerenciamento feito em BASIC. Se o programa fosse todo em lin- 
guagem de máquina, teríamos um ganho da ordem de 30%. Em todo caso. você poderá 
observar uma aceleração significativa neste processo de cópia em relação ao do programa 
28. Gostaria apenas de ressaltar o uso dos pares IX e IY como ponteiros para tabelas com os 
parâmetros dos drives A e B, respectivamente. Estude com atenção o uso de tais ponteiros, 
já que o uso dele se torna imprescindível no acesso a 2 drives, devido à perda do registro 
#D1 do FDC quando se comuta de um drive para outro. Fora isso, as rotinas de acesso ao 
FDC sâo, basicamente, as mesmas empregadas no programa 32. 

Para finalizar a nossa viagem pelo FDC, gostaria de apresentar a etapa de formatação de 
um disquete, já que se trata de uma etapa absolutamente necessária na utilização efetiva dele. 


FORMATANDO DISQUETES 

A formatação ó a etapa que organiza o disquete para receber os dados. Esta organização 
ó mais complicada do que pode parecer, tendo em vista as diferenças de velocidade de drive 
para drive. O ideal seria que todos eles rodassem a 300 rpm, mas este nem sempre á o caso, 
já que sâo admitidas variações de +/• 4,5 rpm. Como contornar essas diferenças? Para solu- 
cionar este problema, existe um sequência de valores no início de cada trilha, que tem como 
função fazer o sincronismo da leitura com a velocidade em que os dados foram gravados. Este 
mecanismo se assemelha em muito ao da gravação do header, que antecede a gravação de 
um programa em fita cassete. Além disso, para que o sincronismo seja o mais perfeito possível, 
são incluídas faixas (gaps, em inglês) após os bytes de sincronismo. A partir deste momento, 
vamos chamar um conjunto de bytes de sincronismo de bloco espaçador. Justamente por 
causa desses gaps ó que o processo de leitura de uma trilha resulta em erro. Após os gaps, 
temos um byte que identifica o início do endereço (ID). Logo após este indicador, temos o 
próprio registro de endereço (ID), que ocupa seis bytes. São eles: 
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Byte 

Função 

#00 

Número da trilha 

#01 

Número do lado 

#02 

Número do setor 

#03 

Tipo de formato 

#04 e #05 

CRC (soma de controle) 


Tabela 7.8: Estrutura do registro de endereço 


O tipo de formato no registro de endereço é, na verdade, um multiplicador que informa o 
tamanho do setor. Vejamos alguns valores possíveis para o tipo de formato 



Valor 

Tamanho do setor 


#00 

1 28 bytes 


#01 

256 bytes 


#02 

512 bytes 


#03 

1 024 bytes 


#04 

2048 bytes 


Tabela 7.9: Valores para o tipo de formato no rogistro ID 


Logo após o registro ID. temos outro bloco espaçador e outro gap. Após esses dois últi- 
mos blocos, tomos um marcador assinalando o início do registro de dados (o setor). Após o 
setor, tomos outra soma (CRC) de dois bytes. A Tabela 7.10 apresenta um mapa desta orga- 
nização. 


Número de bytes 

Valor em hexa 

Função 

(em hexa) 
#3E 

#4E 

Bloco espaçador 

#0C 

#00 

Gap 

#03 

#F6 


#01 

#FC 

Marca de índice 

#32 

#4E 

Bloco espaçador 

• #0C 

#00 

Gap 

• #03 

#F5 


• #01 

#FE 

Marca de JD 

• #01 

(#00 a #4F) 

Número da trilha 

• #01 

(#00 OU #01) 

Lado 

• #01 

(#01 a #09) 

Número do setor 

* #01 

#02 

Tipo de formato 

• #01 

#F7 

(2 CRCs) 

* #16 

#4E 

Bloco espaçador 

• #0C 

#00 

Gap 


Tabela 7.10: Mapeamento de trilha usado polo MS-DOS e pelo MSX-DOS 
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Número de bytes 
(em hexa) 

Valor em hexa 

Função 

• 

#03 

#F5 


• 

#01 

#FB 

Marca de end. de dados 

• 

#200 

#40 

Setor 

• 

#01 

#F7 

(2 CRCs) 

• 

#54 

#4E 

Bloco espaçador 

Onde as etapas assinaladas com 

• se repetem para os demais setores 


Tabela 7.10: Mapeamento do trilha usado polo MS DOS o pelo MSX-DOS(continuação) 


Agora, um assunto que merece destaque. Você já viu que o campo ID fornece o número 
da trilha, o lado e o setor, mas qual será a melhor forma de disposição dos setores numa tri- 
lha? Será que a forma 


1 -2-3-4-5-6-7-B-9 
ó melhor do que a forma 
1-3-5-7-9-2-4-6-8 

iXrl-hsJ-W-S 

no sentido de se obter uma maior velocidade de acesso? Vamos raciocinar juntos. Suponha 
que desejemos ler os setores 1 e 2 de uma determinada trilha. Por mais rápido que seja o Z 
80, nunca conseguiremos que ele leia o setor 2 logo após o setor 1. com o disquete ainda na 
mesma volta (nào se esqueça que o disquete está girando a 300rpm), se utilizarmos os méto- 
dos de acesso ao disco do MSX-DOS. Desta forma, para ler os setores 1 e 2 usando o primei- 
ro formato, gastariamos o tempo necessário para o disquete dar duas voltas. Já no segundo 
formato, como o setor 2 está bem à frente do setor 1 , conseguiríamos ler os setores 1 e 2 com 
o disquete ainda na mesma volta. Pode parecer estranho, mas isto acelera a leitura e a gra- 
vação de arquivos em mais de 30% (não se esqueça que tudo termina em leitura o gravação 
de setores, aos olhos do FDC). A Tabela 7.1 1 fornece um quadro comparativo entre os dois 
formatos numa hipotética leitura dos 9 setores de uma trilha. 
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Número Setores lidos 

da volta no formato 2 


Setor lido 
no formato 1 


1 

2 

3 

4 

5 

6 

7 

8 
9 


1 a 2 
3 e 4 
5 e 6 
7 e 8 
9 


1 

2 

3 

4 

5 

6 

7 

8 
9 


Onde formato 1 ;1-2-3-4-5-6-7-8-9 
e. formato 2 : 1 -3-5-7-9-2-4-6-8 


Tabela 7. 1 1: Número do voltas gasto na leitura de uma trilha 


Com o auxílio do quadro acima, fica fácil perceber que a segunda lorma de disposição dos 
setores numa trilha, á muito mais vantajosa, já que conseguimos ler toda uma trilha em 5 vol- 
tas, e não mais em 9. Será que você consegue inventar um mótodo melhor? Tente a dispo- 
sição 1-4-7-2-5-8-3-6-91 A disposição dos setores numa trilha recebe o nome de interleave e 
representa, oomo acabamos de ver, um fator ponderante na velocidade de acesso aos dados 
gravados nos discos. Devido à baixa velocidade do disk drive, o interleave médio é de 9:1 , o 
que significa que, para se ler uma trilha num disquete formatado no padrão MS-DOS, gasta- 
se o tempo necessário para o disquete dar nove voltas (lembre se que no padrão MS DOS os 
setores estão dispostos seqüencialmente). Se adotarmos o formato 2 (1 -3-5-7-9-2-4-6-8). o in- 
terleave baixa para 5:1, já que neste formato a leitura completa de uma trilha se faz em ape- 
nas 5 voltas. Desta forma, o desejável seria ter um interleave de 1 :1 . mas esta ó uma façanha 
só alcançada em máquinas 286 e 386 (família IBM PC), com docks iguais ou acima de 20 
MHz, equipadas com discos rígidos de 1 8 ms de tempo de acesso e placas controladoras com 
interleave específico de 1:1. é claro que num interleave de 1:1 os setores estão dispostos 
seqüencialmente (formato 1), mas as velocidades da placa controladora do disco rígido e do 
processador são tão grandes que dá para fazer uma leitura após a outra. No nosso MSX, sem 
previsão para disco rígido, temos de nos contentar com um interleave de 5:1, o que. conve- 
nhamos. já não é tão mau assim. Entretanto, devo observar que o lormato 2 só leva vantagem 
sobre o formato 1 quando se utilizam os métodos do MSX-DOS (ou MS-DOS) para o acesso 
ao disco. Se utilizarmos o formato 2 e testarmos o disquete assim formatado com o programa 
32 (formatação lógica), iremos observar que o processo de leitura dos setores se faz de ma- 
neira mais lenta do que num disquete que utiliza o formato 1 (disquete formatado pelo MSX- 
DOS). Oual o motivo de tal diferença? Acontece que, na leitura direta dos setores (como 
acontece no programa 32), a velocidade de processamento ó muito alta, tendo em vista a 
ausência de cálculos demorados entre uma leitura e outra. Desta forma, embora o disquete 
esteja rodando a 300 rpm, o Z 80 ó capaz de ler o próximo setor ainda na mesma volta. No 
caso do MSX-DOS, existe uma manipulação complicada da FAT entre uma leitura e outra de 
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um setor, o que por sua vez impede o Z 80 de conseguir ler o setor seguinte ainda na mesma 
volta, motivo polo qual o formato 2 se torna mais vantajoso nesse caso. 

Antes de passar às rotinas para formatação de uma trilha, gostaria de lhe transmitir um avi- 
so: as listagens apresentadas abaixo formam um programa que formata uma determinada tri- 
lha. de acordo com a resposta do usuário. Desta forma, o disco formatado não será bootávet 
se o usuário não formatar a trilha 0 e pedir explicitamente a criação de um boot. Devo também 
esclarecer que a formataçãp de apenas algumas trilhas é o método de proteção mais eficaz, 
já que imbe a cópia de setores devido aos inúmeros erros na tentativa de leitura de setores em 
trilhas que náo estão sequer formatadas. Por outro lado, o disquete protegido deve possuir 
sempre a trilha 0 formatada, pois, caso contrário, será impossível dar o boot pelo disquete pro- 
tegido. Agora, uma pergunta: do onde vamos tirar os dados e a rotina de partida a serem co- 
locados no boot? Alguma sugestão 7 Bem. a ROM de 16 Kbytes na interface do drive deve 
possuir tais dados, pois, ao formatarmos um disquete, chamamos uma rotina nessa ROM, que, 
ao final da formatação, grava as informações necessárias no setor 0. "Em que endereço estão 
tais dados? Como acessá-los?" Os endereços são os soguintes: 


Disquete Tipo 

Endereço dos dados do boot 


5 1/4” 

Face simples 

#7BB6 


5 1/4” 

Face dupla 

47BD4 


3 1/2“ 

Face simples 

#7BF2 


3 1/2” 

Face dupla 

#7C10 



Tabela 7. 12: Endereços dos dados do boot na ROM da interface controladora do disk drive 


Você deve ter notado que a diferença entro um endereço e outro ó #1 E, que, como vimos 
no Capítulo 6, é exatamente o tamanho da área de dados no boot. Agora só resta saber o en- 
dereço da rotina de partida, não é? 


Endereço da rotina de partida 

na ROM da Interface do drive : #7C45 


Bem, agora que já temos todas as informações necessárias, que tal implementar um for- 
matador para disquetes de 5 1/4”? Melhor ainda: vamos implementar um formatador que apre- 
sente a opção de formatar determinadas trilhas apenas. 
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O PROGRAMA PARA 

FORMATAÇÃO DE DISQUETES DE 5 1/4" 

O programa aqui apresentado permito a formatação de qualquer trilha, ou conjunto d© trilhas, 
de um disquete de 5 1/4". Além desta característica, também 6 possível gravar ou náo o boot. 
Antes, porém, gostana de observar que. so você não gravar o boot, não poderá acessar o dis- 
quete em questão por intermédio do MSX-DOS (ou MS DOS), tendo em vista que todas as ca- 
racterísticas do disquete são gravadas no boot Agora, outra observação: embora o programa 
esteja projetado para formatar somente disquetes de 5 1/4", as rotinas podem ser adaptadas 
(observe os comentários nas listagens) para a formatação do disquetes da 3 1/2". Se você qui- 
ser. poderá usar o programa, como apresontado. para formatar disquetes de 3 1/2" como se 
fossem de 5 1/4". Vamos às listagens. 


Llatagem em aasembly Z-80 do código-fonte do programa para a formatação de dia- 
quetes de 5 1/4*': 


‘.programa para formatação de disquetes de 5 1/4* 
;Compilar com o programa GEN80.COM usando a seguinte 
;sintaxe: 

GEN80 PROG34.BIN-PROG34.GEN 

;onde PROG34.GEN é 0 nome do arquivo-texto com esta 
llistagem 


rdslt equ #000c 

wrslt equ #0014 

enasft equ #0024 

rslreg equ #0138 

wslreg equ #01 3b 

espelho equ #9400 

slotdrv equ #f348 

valtyp equ #1663 

argusr equ #f7f8 


defb #fe 

defw inicio 

defw fim 

defw inicio 


;simula em CP/M 
;o cabeçalho de 
;um arquivo 
;.BIN 


org #d000 

ld a.(valtyp) 


inicio 


;o argumento é 
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cp 

#02 

;inteiro? 

ret 

nz 

;Não. volta 

kl 

a.(argusr) 

;arg. > 39 (mude para 80 



,no caso de 3 1/2*) 

cp 

40 

t 

ret 

nc 

;Sim. volta 

inicio_1 ld 

bt.pardrrve 

;ajusta os ponteiros 

ld 

iy.setores 

;para as duas tabelas 

ld 

(ixf#00).#01 

;envia o setor inicial 

ld 

(ix+#01),a 

;envia a trilha 

di 


;desabilita as interrupções 

call 

fazespelho 

;faz o espelho 

cal 

formatar 

formata a trilha 

ei 


;habilita as interrupções 

or 

a 

;houve erro? 

rot 

z 

:Não. volta 

ld 

hl.tffff 

;Sim, sinaliza 

ld 

(argusr).hl 

;a ocorrência 

ret 


;e volta 


irolina para posicionar o cabeçote do drive na trilha 

;correta, preparando-o para a formatação de uma trilha 

formatar 

call 

prepfim 

germina as operações 
;anteriores 

kf 

e,(ix+#02) 

;e«drive 

ld 

a.(ix+#03) 

;a-lado 

sla 

a 

.ajusta o lado 

sla 

a 

f 

sla 

a 

f 

sla 

a 

t 

or 

e 

• 

or 

#20 

.parâmetro para 
;ligar os motores 

out 

(#d4),a 

;$eleciona e liga 
;o drive 

call 

testco nd 

;espera liberação 

ld 

a.(ix4#00) 

;a-setor 1 

out 

(#d2),a 

;lnforma o setor 

call 

testcond 

;espera liberação 

kf 

a,(ix+#01) 

;a-trilha 

out 

(#d3),a 

;posiciona o 

ld 

a.#11 

.cabeçote 

out 

(#d0).a 

9 

call 

testcond 

;o$pera liberação 
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W 

b,#10 

retardo para 


ca II 

espera 

estabilização 


ld 

hl, espelho 



ld 

o.#03 

e-número de 




tentativas 

formata_0 

push 

hl 

salva hl e de 


push 

de 



ld 

de, fimform 

endereço final 


push 

do 



ld 

c,#d3 

c-porta de dados 


ld 

d,#4e 

d-btoco espaçador 


ld 

a,#f4 

a-comando para 




gravação de uma 


out 

(#dO),a 

trilha 


ex 

(sp),iy 

retardo para 


ax 

(sp).ry 

sincronismo 

formata 1 

ld 

a.(hl) 

chegou ao 


inc 

a 

■fim? 


jP 

z.formata_3 

Sim, vai para 




formata_1 

formata_2 

in 

a,(#dO) 

Não. espera 


rrca 


liberação 


ret 

nc 

Se acabou, sai 


rrca 


Se não. espora 


IP 

nc,formata_2 

liberação 


outi 


envia o byte 


jp 

formata_1 


formata_3 





in 

a,(#dO) 

terminou 7 


rrca 




rot 

nc 

Sim, sai 


rrca 


Não, espera 


IP 

nc,formata_3 

liberação 


ld 

a, d 

envia espaçador 


out 

(#d3),a 



)P 

formata_3 

,-fecha o k>op 

fimform 





pop 

de 

.recupera os 


pop 

hl 

.registros 


in 

a,(#dO) 

testa o comando 


and 

#7c 

;Tudo certo? 


i' 

z,prepfim 

;Sim. termina 


bit 

6, a 

;No caso de escrita, o C 


ir 

nz.comerro 

.estava protegido? 


dec 

• 

;faz mais uma tentativa 
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comerro 


j' 

nz,formata_0 

bit 

4,a 

V 

nz, comerro 

bit 

3, a 

l r 

nz.comerro 

ld 

a, #01 


;houve erro de busca? 

;Sim, vai para comerro 
;houve erro de CRC? 

;Sim, vai para comerro 
;N5o, então houve perda de 
;dados 


;a rotina prepfim prepara a salda de um processo 
;de leitura ou gravação 

propfim 


push 

af 

;salva a 

ld 

a.#d0 

jforça o término 

out 

(#d0).a 

;das operações 
;anteriores 

call 

testcond 

;espera liberação 

pop 

ret 

af 

;recupera a 


;a rotina fazespelho faz o espelho da trilha 
;a ser formatada 


fazespelho 


fazespj 


ld 

hl, espelho 

ld 

b,#3e 

ld 

a.#4e 

call 

preenche_1 

call 

preenche 

ld 

b,#03 

ld 

a. #16 

call 

preenche 1 

ld 

(hl).ffc 

Inc 

hl 

ld 

b.#32 

ld 

a,#4e 

call 

preenchei 

ld 

b,#09 

push 

bc 

call 

preenche 

ld 

b,#03 


;hl aponta para 
;o buffer 
;faz o primeiro 
;bloco espaçador 
• 

.laz o gap 


;faz o segundo 
;bloco espaçador 
• 

;b-9 setores 
;salva b 
;f az o gap 
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fazospj? 


preenche 


ld 

a.#f5 

call 

preenche_1 

ld 

(hl),ffe 

inc 

hl 

ld 

a,(ix+#01) 

ld 

(hl), a 

inc 

hl 

ld 

a,(nu#03) 

ld 

(hl), a 

inc 

hl 

ld 

a.(iy+«00) 

ld 

(hl), a 

inc 

hl 

inc 

•y 

ld 

(hl),#02 

inc 

hl 

ld 

(hl),#<7 

inc 

hl 

ld 

b,#16 

ld 

a,#4e 

call 

preenche_1 

call 

preenche 

ld 

b,#03 

ld 

a,#f5 

call 

preenche_J 

ld 

(hl),«fb 

inc 

hl 

ld 

bc,512 

ld 

(hl), «40 

inc 

hl 

doc 

bc 

ld 

a.b 

or 

c 

jf 

nz,fazesp_2 

ld 

(hl),#f7 

inc 

hl 

ld 

b,#54 

ld 

a,«4e 

call 

preenche_1 

pop 

bc 

djnz 

fazesp_1 

ld 

rei 

(hl), «ff 


xor 

a 

ld 

b,«0c 


;obtém a trilha 
;obtóm o lado 

9 

9 

;obtóm o setor 
• 

V 

9 

;envia o tipo 
;envia o CRC 

9 

;envia outro 
;bloco espaçador 


;envia o setor 


;a$sina!a o fim 

9 

?era o registro a 
;b-tamanho do gap 
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preenchei 


td 

(hl).a 

inc 

hl 

djnz 

preenche 1 

ret 



;a rotina fazboot grava na trilha 0 as informações necessárias 


;para tornar o disquete 

bootável 


fazboot 





call 

rodadrive 

;desloca o cabeçote 




;para a trilha 0 


xor 

a 

;a aponta p/ trilha 0 


ld 

(lado). a 

,lado 0 


call 

inick>_1 

, -formata a trilha 0 


ld 

a.(tipo) 

dace simples? 


or 

a 



V 

z.fazboot_01 

;Sim, pula para fazboot_01 


ld 

(lado). a 

,Náo, atualiza o lado 


dec 

a 

;e formata a trilha 0 


call 

inicio_1 


fazboot_01 





call 

rslreg 

;lò e salva a configuração 


push 

af 

;atua! dos slots 


ld 

a.(slotdrv) 

;atrva a página 1 do 


ld 

hl.#4000 

;slot onde se encontra 


call 

enasft 

;a interface do drive 


ld 

hl, espelho 



ld 

de,espelho+#0l 



ld 

b.#Oc 

;b-núm. de setores privados 

fazboot_0 

push 

bc 

;sahra b 


ld 

bc,#0200 

preenche os setores 


ld 

(hl), #00 

privados com #00 


Idir 




pop 

bc 



djnz 

fazboot_0 



ld 

hl,#7bb6 

;hl aponta para a área 




;de dados (mudar para #fbf2 




;no caso de 3 1/2‘) 


ld 

a.(tipo) 

; obtém o tipo do disquete 


or 

a 

.■face simples? 


j' 

z,fazboot_1 

;Sim, pula para fazbooM 


ld 

de, #001 e 

;Nâo, ajusla hl para 


add 

hl, de 

;a nova posição 

fazbootl 

ld 

de, espelho 

transfere as informações 
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ld 

bc,#001e 



Idir 




kJ 

hl.#7c45 

transfere a rotina de 


(d 

bc,#7d1b-#7c45 

;partida 


Idir 




pop 

af 

;recupera a configuração 


call 

wslreg 

;original dos slots 


ld 

hl.espelho 

;b-número de FAT s 


ld 

b.#02 


ld 

de, #0200 

;de-tamanho do setor 

fazboot_2 

push 

bc 

;salvabc 


add 

hl.de 

;hl aponta para o segundo 
;setor 


push 

hl 

;salva hl 


ld 

a, (tipo) 

;obtóm o tipo 


add 

a.#fc 

;soma ao parâmetro (somar 
;#f8 no caso de 3 1/2") 


kJ 

(hl), a 

dorma a FAT 


inc 

hl 



ld 

(hl),#t1 



inc 

hl 



ld 

(hl),#fl 

;recupera hl 


pop 

hl 


add 

hl.de 

;aponta para 0 terceiro 
;selor (fazer nova soma 
;"add hl.de’ no caso de 
$ 1/2’ 


pop 

bc 

decha o loop para formar 
;a segunda FAT 


djnz 

fazboot_2 



ld 

a.(tipo) 

;obtém o tipo do disquete 


ld 

b,#09 

;banúmero de setores 
privados em face simples 
drocar para #0b no caso 
;de 3 1/2" 




or 

a 

dace simples? 


jr 

z,fazboot_3 

;Sim, vai para fazboot_3 


ld 

b,#0c 

;b-número de setores 
privados em face dupla 
drocar para #0e no caso 
;de 3 1/2“ 

fazboot_3 

ld 

hl, #0000 

;hl-setor inicial 


call 

grconj 

;grava os setores 




privados 


call 

paradrive 

pára o drive 


ret 

yofta ao BASIC 
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;a rotina grconj grava um conjunto do ató 32 setores 
;(16 Kb) no disquete de destino 


grconj 

ld 

do.ospeiho 

;hl-end. inicial 


call 

gravsetor 

;grava o(s) setor(es) 


ret 


:e retorna 


;rotina para posicionar o cabeçote do drive na trilha 
;correta, preparando-o para a leitura ou escrita do 
;setor especrficado 


inidrive 





push 

de 

;salva o ptr. p/ buffer 


call 

testcond 

■.espera liberação 


ld 

a.#09 

;a*núm. de setores por trilha 


ld 

c.a 

p-núm. de setores por trilha 


ld 

b.#08 

prepara a divisão em B bits 

dlvide_1 

add 

hl, hl 

;do número do setor desejado 


ld 

a,h 

pelo número do setores 


sub 

C 

;por trilha 


V 

c.divide_2 



ld 

h.a 



inc 

1 


drvide_2 

djnz 

divide_1 



inc 

h 

;h-núm. do setor (1 a 9) 


ld 

a.(ix+#00) 

parâmetro para ligar 


ld 

e.a 

;salva em e 


ld 

a,(ix+#02) 

pbtórn o núm. de lados 


dec 

a 

;face simples? 


ld 

a.e 

1 


K 

z, inidrive 1 

;Sim, vai para inidrive_1 


srl 

1 

;divide a trilha por 2 




íO número da trilha 




;á ímpar (lado 1)? 


V 

nc,inidrive_1 

;Nào, vai para inkJrive_1 


or 

#10 

;Sim, informa. 

inidrive 1 





ld 

d.a 

;d-seleção 


ld 

a,(ix*#03) 

;a-trpo de form. 


rrca 


• 


rrca 


• 


and 

#c0 

$ 


or 

d 

;nova seleção 
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ld 

a.d 

out 

(#d4).a 

caU 

testoond 

ld 

a.h 

out 

(#d2),a 

call 

testcond 

ld 

a,(ix+#01) 

out 

(#d1).a 

Cp 

1 

jr 

z, acesetor 

ld 

a.1 

out 

(#d3).a 

ld 

(ix+#01 ).a 

ld 

a, #11 

out 

(#dO),a 

call 

testcond 

H 

b.«10 

call 

espera 


;salva em d 
;liga o molor do drive 
;espera liberação 
;envia o setor 

9 

;espera liberação 
;aatrílha anterior 
;envia o número 
já está na nova trilha? 
;Sim, vai para inidrive_2 
;Não, posiciona o 
.cabeçote na trilha 
;atualiza a variável 

9 

9 

;espera liberação 


;a rotina acesetor serve aos propósitos de leitura e/ou 
;gravação de um setor. Na entrada, de-butter em RAM e 
;hl«número do setor. Os labeis drive, numsetor e densid 
; devem estar corretamente preenchidos 


acesetor 

pop 

hl 

;recupera o ptr. p / buff er 


ld 

e.5 

;e-núm. de tentativas 

acesetor 1 

push 

hl 

;salva o end. do buffer 


push 

de 

isalva núm. de tentativas 


call 

testcond 

;espera liberação 

acesetor2 

ld 

a,480 

;a«comando de leitura 


bit 

6, d 

;espera ativada? 


jr 

z.acesetor3 

;Náo, vai p/ acesetor3 


or 

#02 

;habilita espera 


bit 

4.d 

;á lado 1? 


jr 

z.acesetor3 

;N5o. vai para acesetor3 


or 

#08 

;Sim, faz a comparação 

acesetor3 

out 

(#d0).a 

;pelo lado 1 
;envia o comando 


ld 

b.#03 

;laço de espera para 


call 

espera 

;slncronizaçáo 


ld 

c.#d3 

;a-porta de dados do FDC 


ld 

de.fimacesso 

;de-end. final 


push 

de 

;salva end. final na pilha 

acesetor4 

in 

a.(#dO) 

;lâ status do FDC 
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rrca 

ret 

nc 

.acabou a leitura? 

;Sim, vai para fimacesso 

acesetor5 

rrca 

jp 

ini 

nc,acesetor4 

;N5o. espera chegar um byte 
;lè/escreve (outi) um byte 


ÍP 

acesotor4 

prepara nova leitura/escrita 

fimacesso 


pop 

da 

;recupera núm. de tentativas 


pop 

hl 

;recupera end. do buffer 


in 

a,(#dO) 

;obtém o status do FDC 

acasetor6 

and 

#9c 

;correu tudo bem? 


jp 

z.prepfim 

;Sim, volta 


bit 

6. a 

;No caso de escrita, o disco 


JP 

nz.comerro 

;estava protegido? 


dec 

e 

.■faz mais uma tentativa 


iP 

bit 

nz.acesetorl 
4, a 

;houve erro de busca? 


P 

nz.comerro 

;Sim, vai para comerro 


bit 

3. a 

;houve erro de CRC? 


jp 

nz.comerro 

;Sim, vai para comerro 


ÍP 

comerro 

;N3o. entào houve perda de 
:dados 


;rotina para a gravação de um setor, hl-núm. do setor. 

;de-end. em RAM do buffer do setor 


gravsetor 


k) 

ix.parescrita 

;ix aponta para os parâmetros 
;de escrita 


ld 

a.(b<+#00) 

;a-comando de escrita 


ld 

(acesetor2+1),a 

;modifica a rotina acesetor 


ld 

a.(ix+#01) 

;a-instruçào outi (escrita) 


ld 

(acesetorS+1),a 

;modifica a rotina acesetor 


ld 

a.(ix-f#02) 

;a»paràmetro de verificação 


ld 

(acesetorS-fl) 

,a;da escrita 

gravset_0 

ld 

ix.pardrivea 

;ix -> tabela drive a 


k) 

a, (drive) 

;obtém o drive 


dec 

a 

;drive a? 


jr 

z.gravseM 

;Sim. pula para gravset_1 


ld 

ix.pardnveb 

;Nào. atualiza ix 

gravset_1 


ld 

a, (tipo) 

;obtóm o tipo 


ínc 

a 

• 
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ld (ix+#02),a 

add a,#1b 

ld (ix+#03).a 

push hl 

push bc 

push da 

di 

call inidrive 

oi 

pop de 

ld hl, «0200 

add hl.de 

ex de.hl 

pop bc 

pop hl 

inc hl 

djnz gravset_1 

or a 

rot z 

ld hl.fffff 

ld (arguar),hl 

ret 


parescrita 


defb «a0.#a3,#fc 


;salva o lado 

9 

;salva o tipo 
;salva os registros 


;grava um setor 

;recupera o buffer 

;$oma com o número de bytes 

;por setor 

;recupera os outros registros 

;aponta para o próximo setor 
;grava os outros setores 
;houve erro? 

;Náo, volta 

;Sim, sinaliza ao BASIC 
;e retorna 


;a rotina paradrive pára os motores de todos os 
;drives 

paradrive 


push 

at 

;salva o registro a 

xor 

a 

;pára todos os 

out 

(#d4),a 

;drives 

pop 

af 

;recupera o registro 

ret 


;retorna 


;rotina para estabilização das partes mecânicas do drive 
espera 

ex 
ex 
djnz 
ret 


(sp).hl 

(sp),hl 

espera 
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;rotina para testar a liberação -do FDC 

testcond 

ex 

(sp),hl 


ex 

(sp).hl 


ex 

(sp).hl 


ex 

(sp).hl 

testcond_1 

In 

a.(#dO) 


rrca 



jr 

c,testoond_1 


ret 



;rotina para deslocar o cabeçote ató a trilha 2 aro e 
;parar o drive. Esta rotina deve ser usada sempre que 
;se desejar parar o drive. 


rodadhve 


di ;desabilrta as interrupções 


push 

af 

;salva os registros afetados 

push 

bc 


push 

de 


push 

hl 


W 

a.(drive) 

;obtém o número do drive 

k) 

e,#20 

jcomando para ligar o motor 

or 

a 

;a»comando para acionar 

out 

(#d4).a 


call 

testcond 

;espera liberação 

ld 

a, #02 

;a-comando de inicialização 

out 

(#d0),a 

;envia o comando 

call 

tostcond 

;espera liberação 

ld 

b.200 

;dá um tempo para o ajuste 

call 

espera 

;das partes mecânicas 

call 

paradrive 

pára o motor 

pop 

hl 

;recupera os registros 

pop 

de 


pop 

bc 


pop 

aí 


ei 


;habilita as interrupções 

ret 


;retorna 


.área das variáveis usadas no código-fonte 
pardríve 

defb #00 ;armazena o setor 
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defb 

#00 

;armazona a trilha 

drive 

defb 

#00 

;armazena o número do drive 

lado 

defb 

#00 

;armazena o lado 

tipo 

defb 

#00 


setores 


defb 

#01 ,#03.#05.#07,#09,#02.#04.#06.#08 

pardrrvea 


defb 

#21 

parâmetro p/ ligar 


defb 

#00 

.Irilha atual 


defb 

#01 

;densidade 


defb 

#f9 

lipo de formatação 


pardriveb 

defb 

#22 

parâmetro p / ligar 


defb 

#00 

brilha atual 


defb 

#01 

;densidade 


defb 

#Í9 

.tipo de formatação 

fim 

equ 

$ 



Llstagom om linhas DATA do código-objeto do programa para formatação de dis- 
quetes de 5 1/4": 

10 rOR À%-iRD000 TO 6HD304 
20 RE AD BS 

30 POKE A9.VAL("tH"+B$) 

40 NEXT A% 

50 BSAVE “PROG34.BIH", 4RD000, 4HD304 

100 DATA 3A, 63, F6, FE, 02 , C0, 3A, F8, F7 , FE, 28 , D0, DD. 21 , EE, D2 
110 DATA FD, 21, F3, D2, DD, 36, 00, 01, DD, 77, 01 , F3. CD. B8. D0, CD 
120 DATA 2C, D0, FB, B7, C8, 21, FT, IT , 22 , F8, F7 , C9, CD, AE, D0, DD 
130 DATA 5E, 02, DO, 7E, 03, CB, 27, CB, 27, CB, 27, CB, 27 , B3, F6, 20 
140 DATA D3,D4,CD,BF,D2,DD, TE, 00, D3, D2, CD, BF, D2, DD, 7E, 01 
150 DATA D3, D3, 3E, 11, D3 , D0, CD, BF , D2 , 06, 10, CD, BA, D2, 21, 00 
160 DATA 94, 1E, 03,E5, D5, 11, 95.D0, D5, 0E, D3, 16, 4E, 3E, F4, D3 
170 DATA D0, FD, E3, FD, £3 , 7E, 3C, CA, 87, D0, DB, D0, 0F , D0, OF , D2 
180 DATA 7A, DO, ED, A3, C3 , 75, DO , DB, DO, OF, DO, OF, D2, 87, DO, 7A 
190 DATA D3, D3, C3, 87, DO, Dl, El , DB. DO, E6, 7C, 28, 11 , CB, 77, 20 
200 DATA OB, 1D, 20, BF, CB, 67, 20, 04, CB, 5F ,20,00,3E,01, F5, 3E 
210 DATA DO, D3, DO, CD, BF, D2, F1 , C9, 21, 00, 94, 06, 3E, 3E, 4E, CD 
220 DATA 2F, Dl, CD, 2C, Dl , 06, 03 , 3E, F6, CD, 2F , Dl, 36, FC, 23, 06 
230 DATA 32 , 3E, 4E, CD, 2F, Dl , 06, 09, C5, CD, 2C, Dl, 06, 03, 3E, F5 
240 DATA CD, 2F, Dl, 36, FE, 23, DD. 7E, 01, 77, 23, DD, 7E, 03, 77, 23 
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250 DATA ST), 7E, 00, 77, 23, FD, 
260 DATA 4I,CD,2F,D1,CD,2C, 
270 DATA 23,01,00,02,36,40, 
280 DATA 54. 3E. 4E.CD, 2F,D1, 
290 DATA 23,10, FC, C9, CD, C9, 
300 DATA D2 , B7, 28, 07, 32, F1 , 
310 DATA 48, F3, 21,00, 40, CD, 
320 DATA C5, 01, 00, 02, 36, 00, 
330 DATA D2, B7, 28, 04, 11, 1E, 
340 DATA 21,45, 7C, 01, D6, 00, 
350 DATA 02,11,00,02,C5,19, 
360 DATA 23, 36. FF, El, 19, Cl, 
370 DATA 06,00,21,00, 00, CD, 
380 DATA 65, D2, C9, D5, CD, BF, 
390 DATA 02,67, 2C, 10, F7, 24, 
400 DATA 06, CB, 3D, 30, 02, F6, 
410 DATA 7A,D3.D4.CD,BF,D2, 
420 DATA D1,BD, 28.12,70,03, 
430 DATA D2 , 06, 10, CD, BA, D2, 
440 DATA CB,72,28,08,F6,02, 
450 DATA CD, BA, D2, 0E, D3, 11, 
460 DATA D2.ED. A2,C3, 39, D2, 
470 DATA 77.C2. AC.DO, 1D,C2, 
480 DATA AC, DO, C3, AC, DO, DD, 
490 DATA 7E, 01, 32, 42, D2, DD, 
500 DATA FO, D2, 3D, 28, 04, DD, 
510 DATA C6, FB, DD, 77, 03, E5, 
520 DATA 02. 19. EB. Cl, El, 23, 
530 DATA C9,A0,A3.FC.F5.AF, 
540 DATA E3,E3,E3,DB,D0,0F. 
550 DATA D2.1E, 20,B7,D3,D4, 
560 DATA 06, C8, CD, BA, D2, CD, 
570 DATA 00,00.00,01.03,05, 
580 DATA 22, 00, 01, F9, 00 


23.36, 02,23, 36, F7, 23. 06, 16. 3E 
Dl , 06, 03, 3E, F5 , CD, 2F, Dl , 36, FB 
23, OB, 78, BI , 20, F8, 36, F7, 23, 06 
Cl , 10, AF ,36, FF, C9, AF, 06, OC, 77 
D2, AF, 32, Fl, D2.CD, OC.DO. 3A, F2 
D2.3D.CD, OC.DO, CD, 38, 01, F5, 3A 

24.00. 21.00, 94,11,01,94, 06, OC 
ED, BO, Cl , 10, F5 ,21, B6 , 7B, 3A, F2 
00,19, 11,00, 94,01, 1E, 00, ED, BO 
ED.BO, Fl.CD, 3B, 01, 21, 00, 94. 06 
E5.3A.F2.D2,C6,FC, 77, 23, 36. FF 
10. EC. 3A, F2, D2, 06, 09, B7, 28, 02 
BC, Dl, CD, B4. D2.C9, 11, 00, 94, CD 
D2, 3E, 09, 4F, 06, 08, 29, 7C, 91,38 
DD, 7E, 00, 5F, DD, 7E, 02. 3D, 7B. 28 
10, 57, DD. 7E, 03, OF, OF, E6, CO, B2 
7C, D3, D2 , CD, BF , D2 , DD, 7E, 01 , D3 
D3 , DD , 77 , 01 , 3E , 1 1 , D3 , DO . CD , BF 
El , 1E, 05, E5, D5, CD, BF, D2, 3E. 80 
CB, 62. 28, 02, F6, 08, D3, DO, 06, 03 
46, D2. D5, DB, DO, OF, DO, OF, D2, 39 
Dl , El , DB, DO, E6, 9C, CA. AE, DO, CB 
19, D2, CB, 67, C2, AC, DO, CB, 5F,C2 
21.B1, D2,DD, 7E, 00. 32, 1F. D2. DD 
7E. 02, 32, 4B, D2, DD, 21 ,FC, D2, 3A 

21 . 00, D3, 3A, F2 , D2, 3C, DD, 77,02 
C5,D5.F3.CD,C3,D1,FB,D1, 21, 00 
10, El , B7 , C8, 21 , FF. FF, 22, F8, F7 
D3,D4,F1,C9,E3,E3, 10.FC.C9. E3 
38, FB, C9, F3, F5, C5, D5, E5, 3A. FO 
CD, BF , D2, 3E, 02, D3, DO, CD, BF, D2 
B4,D2,E1,D1.C1.F1,FB.C9, 00, 00 
07,09, 02, 04, 06, 08. 21,00, 01, F9 


Ustagom do programa da taata: 

1 00 WIDTH 40:CLS:KEYOFF:CLEAR 200.&H93FF:DEFINTA-Z 
1 10 BLOAD-PROG25.BIN', R:BLOAD-PROG34BIN- 
120DEFUSR0-AHD000:DEFUSR1-&HD2B4:DEFUSR2-&HD134:DR-&HD2F0: 
LD-AHD2F 1 :TP-8HD2F2 

130 CLS GOSUB 310:REM ESCOLHA DO DRIVE 
140 A-A+1POKE DR.A 

150 CLSiGOSUB 340:REM "• ESCOLHA DO TIPO 
160 T-A:POKE TP.A 
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170 CLS:GOSUB 370:REM ESCOLHA DAS TRILHAS “* 

180 CLS:FOR TR-TITOTF 

190 POKE LD.OrREM "* INFORMA LADO 0 — 

200 GOSUB 420:REM ••• INFORMA TRILHA E LADO 

210 A-USR0(TR):REM ”* FORMATA O LADO 0 DA TRILHA ••• 

220 IF A-1 THEN GOTO 560;REM “* ASSINALA ERRO *** 

230 IF T-0 THEN GOTO 280 

240 POKE LD.1 :REM — INFORMA LADO 1 •" 

250 GOSUB 420 REM — INFORMA A TRILHA E O LADO 
260 A-USR0(TR):REM “* FORMATA O LADO 1 DA TRILHA — 

270 IF A--1 THEN GOTO560:REM ••• ASSINALA ERRO ,M 
280 NEXT TR 

290 GOSUB 460:REM *** FIM DA FORMATAÇÃO — 

300 END 

310 SU--ESCOLHA O DRIVE’:S2$-"DRIVE A’:S3$-*DRIVE B* 

320 GOSUB 490 
330 RETURN 

340 Si $-*ESCOLHA O TIPO':S2$-“FACE SIMPLES*:S3$-’FACE DUPLA’ 
350 GOSUB 490 
360 RETURN 

370 LOCATE 0.9:LINE INPUT"ENTRE COM A TRILHA INICIAL : \A$ 

380 IF VAL(A$)>39 THEN 370 ELSE TUVAL(AS) 

390 LOCATE 0,1 1 :LINE INPUT’ENTRE COM A TRILHA FINAL : ’;A$ 

400 IF (VAL(A$)>39 OR VAL(A$)<TI) THEN 390 
410 TF-VAL(AS):RETURN 

420 Sl$-’FORMATANDO A TRILHA’+STR$(TR)+" LADO’+STR$(PEEK( 
LD)) 

430 CLS:X1 -(40-LEN(Sl $))/2:Yl -1 1 
440 LOCATE XI +1 . Y1 :PRINT SI $ 

450 RETURN 

460 CLS:A-USR1(0):S1 $-’GRAVAR O BOOT*:S2$-’SIM H :S3$-'NÃO’: 
GOSUB 490 

470 IF A THEN A-USR1(0) ELSE A-USR2(0) 

480 CLS:S1$-"FIM DA FORMATAÇÃO’:GOSUB 430:END 
490 XI -(40-LEN(S1 $)V2:X2-XULEN(S1 $):Y1 - 1 0:Y2-1 5 
500 LOCATE X1.Y1-1 rPRINT S1$ 

51 0 WIN DOW XI -1 ,Y1 .X2.Y2.1 
520 XI -(40-LEN(S2$))/2 

530 LOCATE X1,YU2:PRINT S2S:LOCATE X1,YU3:PRINT S3$ 

540 MENU X1,YU2.X1.YH3,LEN(S2$).M 
550 RETURN 

560 S1$-’ERRO NA FORMATAÇÃO* 

570 GOSUB 430:END 
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COMENTÁRIOS SOBRE O PROGRAMA 
PARA FORMATAÇÃO DE DISQUETES DE 5 1/4 " 

As listagens acima estão bem comentadas, de modo que vocè não encontrará maiores di- 
ficuldades para ontondô-las. Apesar de tudo. gostaria de ressaltar que, além das modificações 
sugeridas na listagem do código-fonte, vocô dovorá substituir o teste 

IF VAL(A$)>39 

nas linhas 380 e 400 da listagem do programa de teste, se quiser aplicar o programa em dis- 
quetes de 3 1/2". O teste deverá ser substituído por 

IF VAL(A$)>79 

já que os disquetes de 3 1/2” apresentam 80 trilhas, ao invés de 40. 

Nunca é demais lembrar que todas as rotinas apresentadas neste capitulo foram testadas 
com sucesso em drrves de 5 1 /4" e de 3 1 /2" controlados por interfaces do padrão MICROSOL 
(todas, menos a da SHARP). 


NOVOS HORIZONTES 

Apesar do MSX estar no mercado já há algum tempo, acho incrível como certas informações 
(como as apresentadas neste capítulo) ainda permanecem secretas. Creio, sinceramente, que 
um grande passo para o desenvolvimento da informática no Brasil reside na suspensão do tra- 
tamento infantil dado ao usuário nacional. Sinto que esta mentalidade está mudando, haja vis- 
to o nível crescente dos assuntos abordados nas revistas dedicadas aos microcomputadores 
MSX. Mas, mesmo assim, ainda existem artigos que simplesmente apresentam listagens 
enormes (o pior ó que. na maioria das vezes, sáo listagens em hexadecimal) sem qualquer in- 
dicação dos algoritmos usados. Convenhamos que, assim, fica extremamente difícil para um 
usuário iniciante adquirir prática! Não se adquire prática, digitando listagens enormes do códi- 
go-objeto; o máximo que se pode conseguir ó que o usuário se transforme num ótimo digita- 
dor. Por outro lado. o enfoque dado ao MSX tem sido muito mais de um vídeo game do que 
de um ótimo computador, que é onde o MSX se encaixa. 

Para os próximos anos, espero uma remodulação do parque do MSX, motivada pela mi- 
gração do modelo 1.0 para o 2.0. Para tanto, já existem empresas nacionais fazendo a 
conversão (por sinal muito boa) do modelo 1.0 para o 2.0. Esta simples transformação abre 
um leque ainda maior de opções no desonvolvimonto do programas mais amigáveis, basea- 
dos no novo chip do vidoo utilizado no MSX 2. Outro periférico que acabará se impondo no 
mercado, como aconteceu com o drive, ó a MEGARAM. A partir do momento em que os pro- 
dutores de software sentirem que o mercado deste periférico ó grande, aparecerão verdadei- 
ras maravilhas a nível de programas, antes só vistas om computadores do maior capacidade. 
Mas, para que tudo isto se torne realidade, é prociso haver uma maior publicação de infor- 
mações, para dar subsídios ao surgimento de cada vez mais programadores, com novas idéias. 
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O CJue Este Livro Pretende. 

Este livro pretende ser um guia completo para o programador do padrão MSX. Com este livro 
vocè será capaz de extrair o máximo do seu sistema. Entre os tópicos abordados, temos: 

Acesso direto ao video para um controle maior do processador de vídeo. As técnicas apre- 
sentadas neste tópico permitem a inversão de caracteres, criação de janelas, movimentos so- 
bre áreas da tela, animação, etc. 

Programaçao das interrupções para permitir uma simulação do mecanismo de multitarefa. 
Este tópico apresenta um programa muito interessante, que permite a visualização de uma 
parte da memória ao mesmo tempo em que se executa um outro programa. 

Programaçao do vetor de erros para permitir a criação de novos comandos em BASIC. Este 
tópico apresenta listagens completas de programas que criam novos comandos para o BA- 
SIC, sem gastar um único byte da memória principal e sem fazer uso do comando DEFUSR 
para ativar os novos comandos. 

Utilização do sistema de cartuchos para permitir uma utilização ampliada do interpretador 
BASIC em conjunto com as rotinas para desvio do vetor de erros. 

Programação da MEGARAM. Este tópico é absolutamente inédito na literatura nacional. Aqui 
vocè aprenderá como acessar a memória de 256 Kbytes da sua MEGARAM usando rotinas e 
programas fartamente comentados. 

Programaçao do Sistema MSX-DOS. Este tópico apresenta em detalhes todas as rotinas do 
sistema de disco MSX-DOS, acompanhadas de exemplos práticos de programação. 

Acesso direto às portas do controlador de drives Este tópico também é inédito na litera- 
tura nacional e apresenta todos os conhecimentos necessários para vocè programar direta- 
mente os seus drives. Os programas de exemplo incluem um copiador e um formatador 
extremamente rápidos. 
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